Урок 17. Задача 5.

Урок 17. Задача 5.

Пользователь вводит строку символов, в которой есть два числа, разделенные другими символами, т.е. строка имеет вид:
"какиетосимволыЧИСЛО1какиетосимволыЧИСЛО2какиетосимволы"
необходимо считать данные числа в две строковые переменные s1 и s2.

var  s, s1, s2 :string;
     i, n, j :integer;
     fl, fl_2 :boolean;
     
function issdigit(s :string) :boolean;
begin
  if (s >= '0') and (s <= '9') then
      fl := true
    else
      fl := false;
  issdigit := fl;
end;

begin
  s := 'Lo5437um768mp';
  n := 1;
  s1 := '';
  s2 := '';
  for i := 1 to length(s) do
  begin
    fl := issdigit(s[i]);
    if fl then
    begin
      fl_2 := issdigit(s[i - 1]);
      if not fl_2 then
        n := n + 1;
    end;
    if issdigit(s[i]) then
    begin
      if (n mod 2 = 0) then
        s1 := s1 + s[i]
      else
        s2 := s2 + s[i];
    end;
    
  end;  
  for i := 1 to length(s1) do
  begin
    writeln(s1[i]);
  end;
end.