Задача 4 Урок 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

var i,j,max1,max2,k1,k2:integer;
  a:array[1..7] of integer;
begin
  for i:=1 to 7 do
  begin
     writeln('Vvedite celoe chislo: ');
     readln(a[i]);
  end;
  max1:=1;
  max2:=1;
  for j:=1 to 7 do
    begin
      if (max1<=a[j]) then
      begin
        max2:=max1;
        max1:=a[j];
      end;
    end;
  writeln('max1 = ', max1,' ','max2 = ',max2);
end. 

Консоль:

Vvedite celoe chislo: 
4
Vvedite celoe chislo: 
55
Vvedite celoe chislo: 
7
Vvedite celoe chislo: 
65
Vvedite celoe chislo: 
4
Vvedite celoe chislo: 
1
Vvedite celoe chislo: 
7
max1 = 65 max2 = 55