как сделать задачу в Pascal?

Question

найти номер первого максимального элемента во вводимой с клавиатуры последовательности чисел. условие окончания ввода- ввод числа 0.

Екатерина Шалашова · Accepted Answer

var max, a: integer; 
begin 
read(a); 
max:=a; 
while (true) do begin 
read(a); 
if (a = 0) break; 
if (a > max) then max:=a; 
end; 
writeln; 
writeln('Max= ', max); 
end. 
 
Вроде как-то так.