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

Строки как одномерные массивы

{16 - 5
Пользователь вводит строку символов, в которой есть два числа,
разделенные другими символами, т.е. строка имеет вид:
какиетосимволыЧИСЛО1какиетосимволыЧИСЛО2какиетосимволы
необходимо считать данные числа в две строковые переменные s1 и s2.
например для:
wsefg34teth567gfd
получим s1='34' и s2='567'}

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

//write rnd string:
//ffff23dasdsd7456ll
//s1=  23
//s2=  7456