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

Задача 4 Урок 15:

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.

var i, max1, max2: integer;
a: array [1..7] of integer;
begin
  for i:=low(a) to high(a) do
   begin
     write('Введите элемент массива номер ', i, ': ');
     readln(a[i]);
   end;
  for i:=1 to 7 do
   if a[i] > max1 then max1 := a[i];
  for i:=1 to 7 do
   if (a[i] > max2) and (a[i] <> max1) then max2 := a[i];
  write('Два самых больших числа: ', max1, ' ', max2);
  readln();
end.