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

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

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

123fdgF34sdf45g
123fdgF34sdfg45
fdg123F34sdfg45

program u18z2;
type
  massiv = array[1..10] of string;
var
  a,code,i,j: integer;
  s: string;
  b: massiv;
begin
  writeln('Vvedite stroku');
  readln(s);
  j:=1;
  for i:=1 to length(s)+1 do
  begin
    val(s[i], a, code);
    if  (code=0) then
      b[j]:=b[j]+s[i]
    else if (b[j]<>' ') then
    begin
      j:= j+1;
      b[j]:=' ';
    end;
  end;
  for i:=1 to (j-1) do
  begin
    val(b[i], a, code);
    if (i=1) and (a=0) then
    else
    writeln(a);
  end;
  readln();
end.