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

Program hjh;
var a,b,i: integer;
begin
b:=0
writeln('Enter numbers...0');
readln(a);
repeat
if (a>b) then
b:=a;
until (a=0)

Program hjh;
var a,b,c: integer;
begin
b:=0;
writeln('Enter numbers...0');
repeat
readln(a);
if a>b then b:=a
else
if (a<b) and (a<>0) then
c:=a;
until (a=0);
writeln(a,b,c);
readln;
end.

Program hjh;
var  i, Cur, Prev, 
     PrevMaxIndex, PrevMax, Max : integer;
begin
 i:=1;
 writeln('Enter numbers...(0 - for finish)');
 repeat
   readln(Cur);
   if i=1 then {это первое число в последовательности!} 
     begin
       PrevMaxIndex := i;
       Max := Cur; 
     end
   else {уже не первое число}
     if Cur>Max then {очередное число больше того, что в Max}
     begin
       Max := Cur;
       PrevMaxIndex := i;
       PrevMax := Prev;
     end;
   Prev := Cur;
   inc(i);
 until (Cur=0);
 
 {обработка ситуации, когда максимальное число первое }
 if PrevMaxIndex = 1 then
   WriteLn('Мax = ', Max, ' - is FIRST is sequence! ')
 else
   writeln('Max = ',Max,' N in sequence = ', PrevMaxIndex,
         ' Previous = ', PrevMax);
 readln;
end.