В одномерном массиве из 5 целых чисел найти максимальный по значению эллемент и его индекс. результат вывести на екран

Uses crt;

var mas: array [1 ... 5] of integer;

x, max, pos: integer;

begin

max:=-maxint;

for x:=1 to 5 do begin

write ('mas[', x,']: ') ;

readln (mas[x]) ;

if mas[x]>max then begin

max:=mas[x];

pos:=x;

end;

end;

writeln;

write ('Максимальный элемент: ', max,'. Позиция элемента: ', pos) ;

end.

Program z;

Var a:array [1 ... 5] of integer;

i, max, k : intefer;

Begin

max:=-999999;

For i:=1 to 5 do begin

Write ('a [, i, '] = ') ; read (a[i]) ;

if a[i] > max then begin

max: = a[i];

k:=i;

end;

end;

writeln;

write (max, ' ', k) ;

end.