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

Задача 3 Урок 15 :

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

type
  myArr = array[1..8] of char;
var
  a: myArr;
  i : integer;
begin
   for i:=low(a) to high(a) do
   begin
     writeln('vvedite element massiva nomer ', i, ':');
     readln(a[i]);
     if (a[i] = '#') then
       break;
   end;
   writeln('elementi vvedennogo vami massiva:');
   for i:=low(a) to high(a) do
     if (a[i] <> '#') then
       writeln(a[i], ' <-- a[', i, '] ');
   readln();
end.
      

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

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