вводится последовательность натуральных чисел - рост учеников класса, не превосходящих 30. Ноль - признак конца. Требуется вывести рост двух самых высоких учеников

Должно работать:

program prim;

var a: array[0..99999] of integer;

i:byte;

f:integer;

b,c:integer;

begin

for i:=0 to 99999 do begin

readln(a[i]);

if a[i]=0 then break;

f:=i;

end;

for i:=0 to f do begin

if a[i]>c then begin  

if a[i]>b then b:=a[i] else c:=a[i];  

end;end;

writeln(b, ' ',c);

end.