Задание с циклами: ввод и проверка чисел.(Pascal)

[swillrocker]

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

Вот набросок, исправьте или дополните... Много часов потратил уже, сам не могу додуматься. (не применяя массивы)

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.

[Stilet]

Тут нужно либо в массив вводить:

Program hjh; 
var a:array[1..100] of integer; i:integer;
begin 
b:=0; 
writeln('Enter numbers...0'); i:=1;
repeat readln(a[i]); inc(i); until (a[i-1]=0); 
...
А вот тут ты циклом по массиву проходи и находи максимальное.
...
end.

или динамическими списками что сожнее.

[swillrocker]

Сообщение от Stilet

Тут нужно либо в массив вводить:

Program hjh; 
var a:array[1..100] of integer; i:integer;
begin 
b:=0; 
writeln('Enter numbers...0'); i:=1;
repeat readln(a[i]); inc(i); until (a[i-1]=0); 
...
А вот тут ты циклом по массиву проходи и находи максимальное.
...
end.

или динамическими списками что сожнее.

Проблема в том, что нужно обойтись без массива, а что такое динамические списки я пока не знаю...

[Serge_Bliznykov]

ну, тут всего пару дополнительных значений надо хранить.
поэтому можно и без динамических структур обойтись..

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.

[swillrocker]

Сообщение от Serge_Bliznykov

ну, тут всего пару дополнительных значений надо хранить.
поэтому можно и без динамических структур обойтись..

Большое спасибо !