Задача 4 урок 15

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

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