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

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

type
  myArr = array[1..8] of integer;
var
  a: myArr;
  i : integer;
  intChislo, Code,b : Integer;
  rChislo: real;
  s: string;
begin
   for i:=low(a) to high(a) do
   begin
     writeln('vvedite element massiva nomer ', i, ':');
     readln(s);
     if s = '#' then
       break;
     Val(s, intChislo, Code);
     b:=intChislo;
     if Code=0 then
       a[i]:=b;
   end;
   writeln('elementi vvedennogo vami massiva:');
   for i:=low(a) to high(a) do
       writeln(a[i], ' <-- a[', i, '] ');
   readln();
end.    

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

vvedite element massiva nomer 1:
1
vvedite element massiva nomer 2:
2
vvedite element massiva nomer 3:
3
vvedite element massiva nomer 4:
4
vvedite element massiva nomer 5:
5
vvedite element massiva nomer 6:
#
elementi vvedennogo vami massiva:
1 <-- a[1]
2 <-- a[2]
3 <-- a[3]
4 <-- a[4]
5 <-- a[5]
0 <-- a[6]
0 <-- a[7]
0 <-- a[8]