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

[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 был последним элементом массива...
В общем, жду вашей помощи и советов...