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

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

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

var
  s,a,b : string;
  i:integer;
  razborPervogo: boolean;
begin
  writeln('vvedi');
//  readln(s);
  s:='a314dsffs13ffbgv';
  razborPervogo:=true;
  a:=' ';
  b:=' ';
  for i:=1 to length(s) do
    if (s[i]>='0')AND(s[i]<='9') then
      if (razborPervogo) then
        a:=a+s[i]
      else
        b:=b+s[i]
    else
      if (a<>' ') then
        razborPervogo:=false;
    writeln(a);
    writeln(b);
  readln();
end.    

Вывод консоли:

vvedi
 314
 13