Задача 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
        readln(a[i]);

    max1:=a[1];
    For i:= 2 to 7 do
         if a[i]>max1 then max1:=a[i];

    max2:=a[1];
    if max2=max1 then
    begin
         max2:=a[2];
         for i:=3 to 7 do
              if a[i]>max2 then max2:=a[i];
    end
    else
        For i:= 2 to 7 do
            if (a[i]>max2) and (a[i]<max1) then max2:=a[i];

    write(max1,' ',max2);
    readln();

end.