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

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

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

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

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

например:
для:

wsefg34teth567gfd

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

wsefg22teth88

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

15teth47

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

var i: integer;
    s, s0, s1, s2: string;
begin
  writeln('vvedi stoky');
  readln(s);
    for i := 1 to length(s) do
      if((s[i] >= '0') and (s[i] <= '9')) then
        begin
          s0 := s0 + s[i];
          s1 := s1 + s0;
          s0:='';
        end
      else if(s2 = '') then
        begin
          s2 := s1;
          s1 := '';
        end;
    writeln('s1 = ', s1);
    writeln('s2 = ', s2);
  readln();
end.