Задача 3 Урок 18

Задача 3 Урок 18

Есть строка, в которой, среди прочих символов содержатся 3 числа, выделите эти в массив.
Проверьте работу программы на строках:

123fdgF34sdf45g
123fdgF34sdfg45
fdg123F34sdfg45

var a:array [1..3] of integer; s:string; i,t,j,k,l:integer; x:array [1..3] of string;

begin
  s:='fdg123F34sdfg4';
  k:=0;
  j:=1;
  t:=1;
  for i:=1 to Length(s) do
  begin
    if (s[i]>='0')and (s[i]<='9')then
    begin
      k+=1;
      if k=1 then
        t:=1;
      if t>k then
      begin
        j+=1;
        t:=k;
      end;
      x[j]:=x[j]+s[i];
    end;
    t+=1;
  end;
  for j:=1 to 3 do
  begin
    val(x[j],a[j],l);
    writeln(a[j],' ');
  end;
  readln();
end.