дан одномерный массив состоящий из 5 элементов

паскаль?

const
n = 5;
var
a: array[1..n] of integer;

procedure create;
var
k: integer;
begin
randomize;
for k:=1 to n do
a[k] := random(50)-100;
end;

procedure get_max;
var
k, max_k, max: integer;
begin
max := 0;
for k:=1 to n do
if (a[k] > max) then
begin
max := a[k];
max_k := k;
end;
end;