задача паскаль

[Gaml]

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

[Stilet]

В чем сложность? Показывай как последовательность вводишь )

[Gaml]

ну вот я что то пытался тут ...но не знаю мне кажутся это бредни(

programm name:
users crt;
var 
a : array[1..n] of integer;
n,i,max1,max2,num1,num2:integer;
begin
clrscr;
for i:=1 to n do
read(a[n]);
begin
a[n+1]:=0;
num1:=0;
max1:=0;
max2:=0;
for a[n]:=1 to n do
 if a[n]>a[n+1] then a[n]:=max1;
 num1:-num+1;
 begin
 num2:=0;
 for a[n]:=1 to n do
  if (a[n]>a[n+1]) and (a[n]<max1) then a[n]:=max2;
  num2:=num2+1;
  begin
  if (max1<max2) then writeln(' номер наименьшего элемента',num1) else if max1>max2 then writeln('номер наим элемента',num2);
  end;
  end;
  end;
  end;
  end.

[Stilet]

поправь цикл ввода:

for i:=1 to n do begin
 read(a[n]);
 if a[n]>a[max1] then begin max2;=max1;max1:=n; end;
end;

Потом a[max2] должно дать второе по величине, а остальной код не нужен.

Да еще: read оставляет нажатие Энтера в памяти, поосторожней с этой процедурой, лучше замени на readln. если каждое число планируешь подтверждать энтером.

[McFrey]

ну если исправлять ошибки, то так по мелочи =)
1) programm надо писать с одной "m" на конце
2) programm name: - не двоеточие а " ; "
3) users - ну это же не пользователи, а то что ты используешь поэтому uses
4) num1:-num+1 - а вот тут скорее всего присваивание num1:=-num+1

[Gaml]

благодарю,дельный совет )