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

Поначалу в разделе описания переменных обрисовываем все переменные, которые будут применены в программке, а именно N - количество частей массива, I переменная счетчик, max наибольший элемент массива, k индекс этого максимального элемента. Дальше вводим N с клавиатуры и вводим элементы массива. Поначалу залем индекс элемента 1, то есть k=1, а максимальный элемент предполагаем равен первому элементу массива, далее необходимо пробежать по всем элементам массива и сопоставить их с наибольшим, если какой-то элемент больше max, то тогда переменной max присваивается его значение и все другие элементы сравниваются с ним.

program primer;

var   N, i, max, k: integer;

x=array [1..N] of integer;

begin

read(N);

for i:=1 to N do

                begin

                               readln(a[i]);

                end;     

k:=1;

max:=A[1];

for i:=2 to N do

if maxlt;a[i] then

begin

max:=a[i];

k:=i

end;

write (Маx=,max);

write (INDEX=,k);

end;

END.