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

Урок 17

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

например:

для:
wsefg34teth567gfd
получим s1='34' и s2='567'

для:
wsefg22teth88
получим s1='22' и s2='88'

для:
15teth47
получим s1='15' и s2='47'

var s, s1, s2: string;
    i: integer;
    b{флаг первой строки}: boolean;

begin
  writeln('Введите строку');
  readln(s);
  //s := 'gvedf8934535ebdf06338bdb';
  s1 := '';
  s2 := '';
  b := true;
  for i := 1 to length(s) do
  begin
    if (s[i] >= '0') and (s[i] <= '9') and b then
    begin
     s1 := s1 + s[i];
    end
    else if (s1 <> '') and b then
      b := false
    else if (s[i] >= '0') and (s[i] <= '9') and not b then
    begin
     s2 := s2 + s[i];
    end
  end;
  writeln(s1);
  writeln(s2);
  readln();
end.

КОНСОЛЬ

Введите строку
rgersdfg34bdgbsdfbsd564gdhrtsdghnb
34
564