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

http://fkn.ktu10.com/?q=node/8614
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.

type
  myArr = array[1..7] of integer;
var
  a: myArr;
  i,max : integer;
begin
   for i:=low(a) to high(a) do
   begin
   writeln ('введите элементы массива');
   readln (a[i]);
   end;
   writeln('максимальный элемент введенного вами массива:');
   max:=a[1];
    if a[i] > max then
  max := a[i];
     writeln(max);
   readln();
end.