Дан вещественный масив состоящий из 9 элементов увеличить его максимальный элемент и поменять его местами с третьим - Pascal ABC

const
  n=9;
var
  a: array[1..n] of real;
  i, imax: integer;
  t: real;
begin
  writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў:');
  for i:=1 to n do
  begin
    a[i]:=random*100;
    write(a[i]:7:2);
  end;
  writeln;
  
  imax:=1;
  for i:=2 to n do
    if a[i]>a[imax] then imax:=i;
  writeln('Max=a[',imax,']=',a[imax]:0:2);
  
  a[imax]:=a[imax]*2;
  t:=a[3];
  a[3]:=a[imax];
  a[imax]:=t;
  writeln('ÏðåîáðГ*çîâГ*Г*Г*ûé Г¬Г*Г±Г±ГЁГў:');
  for i:=1 to n do write(a[i]:7:2);
  readln;
end.