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

Задача 3 Урок 181. Пользователь вводит любые целые числа (после каждого нажимает Enter), до тех пор пока не введет символ решетки #
Задача: сохранить в массив целые числа, которые ввел пользователь (до символа # или до окончания места в массиве) и вывести их на экран, значения не используемых ячеек массива выводиться не должны.

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) 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 do
    writeln (b[i]);
  readln();
end.    

Вывод консоли:

Vvedite stroku
qwe1fdf5bvvb7hggnh
1
5
7