Ввести натуральное n, n целых чисел. Отыскать наибольшее число и его

program zz1;

var a, b,  n, i, max:integer; // задаем переменные целого типа

begin

write( введите естественное n );  // вводим с клавиатуры число

read(n);  

for i:=1 to n do // организуем цикл на n повторений

begin

read(a);  // вводим очередное число

if a gt;= max then begin max:= a; b:= i; end; // проверяем, если число больше наибольшего, то записываем его в наибольшее и запоминаем номер

end;

write( максимальное число = , max, его номер = , b); // выводим ответ

end.