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

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

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

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

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

var i,k,t:integer; s,s1,s2:string; a:array [1..10] of char;
begin
  readln(s);
  k:=0;
  for i:=1 to Length(s) do
  begin
    if (s[i]>='0')and(s[i]<='9') then
    begin
      inc(k);
      if k=1 then
        t:=0;
      if k>0 then
        if t>k then
          s2:=s2+s[i]
        else
          s1:=s1+s[i];
    end;
    t+=1;
  end;

  write('s1=',s1,' s2=',s2);
  readln();
end.