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

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

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

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

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

program u17z4;
var s,a,b: string;
    i,n: integer;
    q: boolean;
begin
  writeln('vvedite stroku:');
  readln(s);
  a:='';
  b:='';
  q:=true;
  for i:=1 to length(s) do
  begin
    if (s[i]>='0')and(s[i]<='9') then
    begin
      if (q) then
        a:=a+s[i]
      else
        b:=b+s[i];
    end
    else
    begin
      if (a<>'') and (q=true) then
        q:=false;
    end;
  end;
  write('a=',a,' b=',b);
  readln;
end.