Нужна программа на паскале
нужно вводить последовательность с клавиатуры( конец ввода 0) с while, найти порядковый номер первого из чисел с максимальным значением
т.е например на ввод 6 5 9 7 9 0
вывод 3
вроде легко, но никак не могу написать, чтобы корректно работало
var a,m,k,p:integer;
begin
read(a);
m:=a;
k:=1;
p:=1;
while a<>0 do
begin
if a>m then
begin
m:=a;
p:=k
end;
k:=k+1;
read (a)
end;
writeln (p)
end.