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

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

У вас есть массив:
▶
?
1
2
3
4

type
myArr = array[1..8] of integer;
var
a: myArr;

-- целочисленный тип из 8 элементов.

Пользователь вводит любые целые числа (после каждого нажимает Enter), до тех пор пока не введет символ решетки #

Задача: сохранить в массив целые числа, которые ввел пользователь (до символа # или до окончания места в массиве) и вывести их на экран, значения не используемых ячеек массива выводиться не должны.

type
  myArr = array[1..8] of integer;
var
  a: myArr; i,j:integer;  s:string;

begin
  readln(s);
  for i:=low(a) to high(a) do
  begin
    val(s[i],a[i],j);
    if j=0 then
      write(a[i])
    else
      break;
  end;
  readln();
end.