Задача 5 Урок 16

Задача 5 урок 16

Пользователь вводит строку символов, в которой есть два числа, разделенные другими символами, т.е. строка имеет вид:
?

какиетосимволыЧИСЛО1какиетосимволыЧИСЛО2какиетосимволы

необходимо считать данные числа в две строковые переменные s1 и s2.

например:

для:

wsefg34teth567gfd

получим s1='34' и s2='567'

для:

wsefg22teth88

получим s1='22' и s2='88'

для:

15teth47

получим s1='15' и s2='47'

program U16Z5;
var s,s1,s2: string;
    i: integer;
    f: boolean;
begin
  writeln('vvedite stroku s');
  readln(s);
  s1:='';
  s2:='';
  f:=true;
  for i:=1 to length(s) do
  begin
      if (s[i]>='0') and (s[i]<='9') then
      begin
          if (f) then
            s1:=s1+s[i]
          else
            s2:=s2+s[i];
      end
      else
      begin
          if (f and (s1<>'')) then
            f:=false;
      end;
  end;
  writeln('s1 = ',s1);
  writeln('s2 = ',s2);
  readln();
end.