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

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

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

1 2 2 1 1 1 1
Ответ: 2 2
-1 -2 -2 -1 -1 -1 -1
Ответ: -1 -1
-1 -2 -2 5 4 -1 -1
Ответ: 5 4

program u15z5;
var a:array [1..7] of integer;
var i, max1, max2:integer;
begin
  max1:=1;
  max2:=1;
  for i:=low(a) to high(a) do
  begin
    writeln('vvedite element massiva nomer ', i, ':');
    readln(a[i]);
  end;
  for i:=1 to 7 do             //ищем номер первого максимум
    if a[i]>a[max1] then
    max1:=i;
  writeln ('Max1:=', a[max1]);
  for i:=1 to 7 do            //ищем номер второг максимум
    if (i<>max1) and (a[i]>=a[max2]) then   //выводим из поиска первый макс.и ищем второй
    max2:=i;
  writeln ('Max2:=', a[max2]);
  readln();
end.