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

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.