задача 1 урок 15

http://fkn.ktu10.com/?q=node/8614
Задайте в коде программы массив из чисел семи чисел
1 12 45 6 7 18 99
Затем обойдите это массив, выводя его значения на экран.

type
  myArr = array[1..7] of integer;
var
  a: myArr;
  i : integer;
begin
   for i:=low(a) to high(a) do
   begin
a[1] := 1;
a[2] := 12;
a[3] := 45;
a[4] := 6;
a[5] := 7;
a[6] := 18;
a[7] := 19;     
   end;
   writeln('элементы введенного вами массива:');
   for i:=low(a) to high(a) do
     writeln(a[i], ' <-- a[', i, '] ');
   readln();
end.