Vytvořil jsem zatím tohle:

program Project3;

{PROGRAM 3 ************************************************** **********************
13. SESTAVTE PROCEDURU PRO NALEZENI DVOU NEJVETSICH CISEL Z DANE MNOZINY N CI-
SEL A POUZIJTE JI PRO RESENI TETO ULOHY: JE DANO N CISEL. NAJDETE DVE NEJVETSI
Z NICH A ZE ZBYVAJICICH CISEL OPET DVE NEJVETSI.
}

{$APPTYPE CONSOLE}

uses
SysUtils;

type
A=array[1..50] of integer;

var
M:A;
i,pocet:integer;
x:integer;


procedure maximum (var M:A; N:integer);
var i, max1, max2:integer;
begin
max1:=0;
max2:=0;
for i:=1 to N do
if M[i] > max2 then
begin
max2:=M[i]
end;
for i:=1 to N do
if (M[i] > max1) and (M[i] < max2) then
begin
max1:=M[i]
end;
writeln;
writeln('Maxima ze zadanych cisel jsou: ');
writeln (max1,' a ',max2);
end;


begin
writeln('Kolik cisel budete zadavat?: ');
readln(pocet);
i:=0;

writeln;
writeln('Zadejte prvky oddelene ENTREM: ');
for i:=1 to pocet do
begin
readln(x);
M[i]:=x;
end;
writeln;
write('Zadana mnozina je: ');
writeln;

for i:=1 to pocet do
write(M[i],' ');

maximum (M,pocet);
maximum (M,pocet);

writeln;
writeln('Program se ukonci stiskem klavesy ENTER');
readln;
end.


Nevím, jak zajistit nalezení dvou největších čísel z těch čísel zbývajících... =o( Poradí mi někdo prosím...???

Jinak děkuju za předešlé odpovědi... =o)