Написать программу на Паскале: "найти номер первого максимального элемента во вводимой с клавиатуры последовательности чисел. Условие окончания ввода – ввод числа 0."

Предыдущий
вопрос Следующий
вопрос

program FindMaxElementIndex;

var
number, maxElement, index, maxElementIndex: integer;

begin
writeln('Введите последовательность чисел (для завершения введите 0):');
readln(number);

maxElement := number;
index := 1;

while number <> 0 do
begin
if number > maxElement then
begin
maxElement := number;
maxElementIndex := index;
end;

end;

writeln('Номер первого максимального элемента: ', maxElementIndex);
end.