Нахождение трех максимумов перед нулем. Опции

[eternal]

Здравствуйте, не могли бы вы мне помочь решить следующую задачу:
Дано не менее трех различных натуральных чисел, за которыми следует нуль. Определить три наибольших числа среди них.

Часть текста программы, а именно нахождение трех максимумов, я написал:

Код

var
a:array [1..10] of integer;
i,j,k,m:integer;
begin
for i:=1 to 10 do read(a[i]);
j:=1;k:=1;m:=1;
for i:=1 to 10 do begin
if a[i]>a[j] then j:=i;
if a[i]>a[k] then begin
j:=k; k:=i;
end;
if a[i]>a[m] then begin
k:=m;m:=i;
end;
end;
write('max: ',a[j],' ',a[k],' ',a[m])
end.

Однако он не совсем корректно находит три максимума в отдельных случаях (например если первый элемент массива наибольший из всех элементов) поэтому вопрос к знающим людям: чего здесь не хватает?
Ну а второй вопрос это относительно цикла while... никак у меня не получается применять его в вышеуказанной программе... программа зависает... хотя один раз удалось вроде бы запустить все как надо, но программа работала в единственном случае - если 0 был последним элементом массива...
В общем, жду вашей помощи и советов...

[Флогримм]

можно попробовать решить в лобешник... с помощью 3х циклов, исключая, полученные ранее ответы

Код

uses crt;
const l=10;
var
a:array [1..l] of integer;
i,j,k,m,n:integer;
begin
clrscr;
randomize;
for i:=1 to l do begin
a[i]:=random(91)+10;
write(a[i]:4);
end;

j:=1;k:=1;m:=1;

for i:=1 to l do if a[i]>j then j:=a[i];
for i:=1 to l do if (a[i]>k) and (a[i]<>j) then k:=a[i];
for i:=1 to l do if (a[i]>m) and (a[i]<>j) and (a[i]<>k) then m:=a[i];
writeln;
write('max: ',j,' ',k,' ',m)
end.