Не могу решить задачу по информатике

Pascal

var i, maxi, mini: integer;
a: array [1..10] of integer;
begin
maxi:=1;
mini:=1;
for i:=1 to 10 do
begin
a[i]:=random (90);
write (a[i]:4);
if a[i] > a[maxi] then maxi:=i;
if a[i] < a[mini] then mini:=i;
end;
writeln;
writeln ('Сумма максимального и минимального элементов массива = ', a[maxi] + a[mini] :4);
end.

var i, maxi, mini: integer;

a: a of integer;

begin

maxi:=1;

привет