Массивы. Найти 2 максимальных элемента массива - Pascal ABC

Формулировка задачи:

Uses crt;
const n=10;
 Var a:array [1..n] of integer;
  i,max1,max2:integer;
  Begin
  randomize;
  For i:=1 to n do
a[i]:=random(10);

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

               end;
               end;
          For i:=1 to n do
            Writeln (a[i]:3);
 
 Writeln ('max1=',max1);
 Writeln ('max2=',max2);
 end.

Надо найти 2 максимальных члена массива. Подскажите, в чём ошибка?

Решение задачи: «Массивы. Найти 2 максимальных элемента массива»

Листинг программы

const
    n = 10; { Г—ГЁГ±Г«Г® ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г¬Г*Г±Г±ГЁГўГ* }
var
    arr: array[1..n] of integer;
    i, max1, max2, temp: integer;
begin
    { Г‡Г*ГЇГ®Г«Г*ГїГҐГ¬ Г¬Г*Г±Г±ГЁГў Г±Г«ГіГ·Г*Г©Г*Г»Г¬ГЁ ГЅГ«ГҐГ¬ГҐГ*ГІГ*Г¬ГЁ ГЁ ГўГ»ГўГ®Г¤ГЁГ¬ ГҐГЈГ® Г*Г* ГЅГЄГ°Г*Г* }
    Randomize;
    Write('Г‘ГЈГҐГ*ГҐГ°ГЁГ°Г®ГўГ*Г*Г*Г»Г© Г¬Г*Г±Г±ГЁГў:');
    for i := 1 to n do begin
        arr[i] := random(100);
        Write(' ', arr[i]);
    end;
    WriteLn;
    
    { Г„Г«Гї Г*Г*Г·Г*Г«Г* ГЇГ°ГҐГ¤ГЇГ®Г«Г®Г¦ГЁГ¬, Г·ГІГ® ГЇГҐГ°ГўГ»ГҐ ГЅГ«ГҐГ¬ГҐГ*ГІГ» Г¬Г*Г±Г±ГЁГўГ* ГїГўГ«ГїГѕГІГ±Гї Г¬Г*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г»Г¬ГЁ }
    { (ГЏГ°ГҐГ¤ГЇГ®Г«Г®ГЈГ*ГҐГІГ±Гї, Г·ГІГ® Гў Г¬Г*Г±Г±ГЁГўГҐ ГҐГ±ГІГј ГµГ®ГІГї ГЎГ» Г¤ГўГ* ГЅГ«ГҐГ¬ГҐГ*ГІГ*) }
    max1 := arr[1];
    max2 := arr[2];
    { ГЏГіГ±ГІГј ГЎГ®Г«ГјГёГЁГ© ГЁГ§ Г*ГЁГµ ГЎГіГ¤ГҐГІ Гў max1, Г* Г¬ГҐГ*ГјГёГЁГ© Гў max2 }
    if max1 < max2 then begin
        temp := max1;
        max1 := max2;
        max2 := temp;
    end;
    
    { ГЏГ°Г®Г±Г¬Г*ГІГ°ГЁГўГ*ГҐГ¬ Г®Г±ГІГ*ГўГёГЁГҐГ±Гї ГЅГ«ГҐГ¬ГҐГ*ГІГ» }
    for i := 3 to n do begin
        { Г…Г±Г«ГЁ Г±Г«ГҐГ¤ГіГѕГ№ГЁГ© ГЅГ«ГҐГ¬ГҐГ*ГІ ГЎГ®Г«ГјГёГҐ, Г·ГҐГ¬ Г¬ГЁГ*ГЁГ¬Г*Г«ГјГ*Г»Г© ГЁГ§ ГіГ¦ГҐ Г§Г*ГЇГ®Г¬Г*ГҐГ*Г*Г»Гµ, Г§Г*ГЇГ®Г¬ГЁГ*Г*ГҐГ¬ ГҐГЈГ® }
        if arr[i] > max2 then max2 := arr[i];
        { Г“Г¤Г®Г±ГІГ®ГўГҐГ°ГїГҐГ¬Г±Гї, Г·ГІГ® ГЎГ®Г«ГјГёГЁГ© ГЇГ® ГЇГ°ГҐГ¦Г*ГҐГ¬Гі Гў max1 }
        if max1 < max2 then begin
            temp := max1;
            max1 := max2;
            max2 := temp;
        end;
    end;
    
    WriteLn('ГЊГ*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г»Г© ГЅГ«ГҐГ¬ГҐГ*ГІ - ', max1);
    WriteLn('Г‘Г«ГҐГ¤ГіГѕГ№ГЁГ© Г§Г* Г*ГЁГ¬ - ', max2);
end.

Объяснение кода листинга программы

Г-ГЁГ±Г«Г® ГЅГ«ГҐГ¬ГҐГГІГ®Гў Г¬ГГ±Г±ГЁГўГ* - массив из 10 элементов
var i, max1, max2, temp: integer;
Г‡ГГЇГ®Г«ГГїГҐГ¬ Г¬ГГ±Г±ГЁГў Г±Г«ГіГ·ГГ©ГГ»Г¬ГЁ ГЅГ«ГҐГ¬ГҐГГІГГ¬ГЁ ГЁ ГўГ»ГўГ®Г¤ГЁГ¬ ГҐГЈГ® ГГ ГЅГЄГ°ГГГ»Г© Г¬ГГ±Г±ГЁГў: - заголовок программы
Г„Г«Гї ГГГ·ГГ«Г ГЇГ°ГҐГ¤ГЇГ®Г«Г®Г¦ГЁГ¬, Г·ГІГ® Гў Г¬ГГ±Г±ГЁГўГҐ ГҐГ±ГІГј ГµГ®ГІГї ГЎГ» Г¤ГўГ ГЅГ«ГҐГ¬ГҐГГІГ) - поиск двух максимальных элементов массива
ГЏГіГ±ГІГј ГЎГ®Г«ГјГёГЁГ© ГЁГ§ ГГЁГµ ГЎГіГ¤ГҐГІ Гў max1, Г Г¬ГҐГ*ГјГёГЁГ© Гў max2 - сортировка массива методом сортировки выбором
Г…Г±Г«ГЁ Г±Г«ГҐГ¤ГіГѕГ№ГЁГ© ГЅГ«ГҐГ¬ГҐГГІ ГЎГ®Г«ГјГёГЁГ», Г·ГҐГ¬ Г¬ГЁГГЁГ¬ГГ«ГјГГ»Г© ГЁГ§ ГіГ¦Г̀ - поиск второго максимального элемента массива
Г“Г¤Г®Г±ГІГ®ГўГҐГ°ГїГҐГ¬Г±Гї, Г·ГІГ® ГЎГ®Г«ГјГёГЁГ© ГЇГ® ГЇГ°ГҐГ¦Г*ГҐГ¬Гі Гў max1 - сортировка массива методом сортировки выбором
end. - завершение программы