Задание 1 Урок 15

Задайте в коде программы массив из чисел семи чисел:

1 12 45 6 7 18 99
Затем обойдите это массив, выводя его значения на экран.

type arr = array[0..6] of integer;
var i : integer;
  first_array : arr;
begin
  first_array[0] := 1;
  first_array[1] := 12;
  first_array[2] := 45;
  first_array[3] := 6;
  first_array[4] := 7;
  first_array[5] := 18;
  first_array[6] := 99;
  for i := low(first_array) to high(first_array) do
    write('|', first_array[i], '|');
  readln();
end.         
end. 

консоль:

|1||12||45||6||7||18||99|