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

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

[trminator]

Может, и не лучший вариант, но можно вставлять элементы в массив с максимумами... получается что-то похожее на сортировку, но вставками. И не нужно считывать все элементы, а читаем только пока не увидим ноль:

Код

program max3;
var max : array[0..4] of integer; {o-th and 4-th are fake}
   cur : integer;
   i : integer;

procedure insert(k : integer);
var i, j : integer;
begin
   i := 0;
   while max[i] < k do
         inc(i);
   dec(i);
   if i = 0 then exit;
   for j := 1 to i do
       max[j] := max[j+1];
   max[i] := k;
end;

begin
   max[0] := -1; max[4] := 10000;
   repeat
       readLn(cur);
       insert(cur);
   until cur = 0;
   for i := 1 to 3 do write(max[i] : 5); writeLn;
end.

Сложность вроде линейная получается (не больше шести операций при вставке на каждую из n операций чтения => O(6*n) = O(n) операций, при сортировке - O(n*log n)), так что это лучше сортировки :P