Нахождение суммы максимального и минимального элементов массива

program dima;
var a:array[1..10] of integer;
S,i,iMax,iMin : integer;
begin 
 
for i:=2 to 10 do
begin
a[i]:=random(306)-100;
writeln(a[i]:4);
end;
iMax:=1 ;
begin
if a[i]>a[iMax] then 
iMax:=i;
writeln('Максимальный элемент a[',iMax,']=',a[iMax]);
end;
iMin:=1;
begin
for i:=2 to 10 do 
if a[i]<a[iMin] then 
iMin:=i;
writeln('Минимальный элемент a[',iMin,']=',a[iMin]);
end;
S:= iMax+iMin;
writeln('Сумма максимального и минимального элементов=',s);
end.

program dima;
 
const
  n = 10;
 
var
  a: array[1..n] of integer;
  S, i, iMax, iMin: integer;
 
begin
  iMax := 1;
  iMin := 1;
  for i := 2 to n do
  begin
    a[i] := random(306) - 100;
    write(a[i]:6);
    if a[i] > a[iMax] then 
      iMax := i;
    if a[i] < a[iMin] then 
      iMin := i;
  end;
  writeln;
  writeln('Максимальный элемент a[', iMax, ']=', a[iMax]);
  writeln('Минимальный элемент a[', iMin, ']=', a[iMin]);
  S := a[iMax] + a[iMin];
  writeln('Сумма максимального и минимального элементов=', s);
end.