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

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

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

123fdgF34sdf45g
123fdgF34sdfg45
fdg123F34sdfg45

Решение:

program u18z02;
var s,s0:string;
  i,j,n,Code:integer;
  a:array [1..5] of integer;
begin
  writeln('Vvedite stroku');
  readln(s);
  j:=1;
  for i:=1 to length(s) do
  begin
    if(s[i]>='0')and(s[i]<='9') then
      s0:=s0+s[i]
    else if s0<>'' then
    begin
      s0:='';
      j:=j+1;
    end;
    Val(s0,n,Code);
    a[j]:=n;
  end;
  for j:=1 to 3 do
    writeln(a[j]);
  readln();
end.

Консоль:

Vvedite stroku
123fdgF34sdf45g
123
34
45

Vvedite stroku
123fdgF34sdf45
123
34
45

Vvedite stroku
fdg123F34sdfg45
123
34
45