Поменять местами максимальный элемент и первый

var
i, n, a:integer;
f:text;
begin
writeln('Введите количество элементов массива: ');
readln(n);
assign(f,'input.txt'); rewrite(f);
for i:=1 to n do
    begin
    a:=-30 + random(61);
    write(f,a,' ');
    end;
close(f);
end.

const
m = 100;
var
a:array[1..m] of integer;
i, maxI, n, buf:integer;
f:text;
begin
assign(f,'input.txt');reset(f);
n:=0;
writeln('Исходный массив: ');
while not Eof(f) do
    begin
    inc(n);
    read(f, a[n]);
    write(a[n]:4);
    end;
close(f);
writeln('Итоговый массив: ');
maxI:=1;
for i:=2 to n do
    if a[i] > a[maxI] then
        maxI:=i;
buf:=a[maxI]; a[maxI]:=a[1]; a[1]:=buf;
for i:=1 to n do
    write(a[i]:4);
    
end.

var f:text;
    n,i,a:integer;
begin
assign(f,'1.txt');
rewrite(f);
write('Сколько чисел записать в файл n=');
readln(n);
randomize;
for i:=1 to n do
 begin
  a:=-30+random(61);
  write(f,' ',a);
 end;
close(f);
writeln('Файл записан');
end.

var f:text;
    s:string;
    a:array[1..100]of integer;
    n,i,imx,x:integer;
begin
writeln('Введите путь к файлу или его имя, если он в папке с программой');
readln(s);
if not fileexists(s) then
 begin
  writeln('Файл не найден');
  exit;
 end;
assign(f,s);
reset(f);
writeln('Исходный массив');
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  read(f,a[n]);
  write(' ',a[n]);
  if n=1 then imx:=1
  else if a[n]>a[imx] then imx:=n;
 end;
close(f);
writeln;
writeln('Максимальный элемент=',a[imx],' его индекс=',imx);
if imx=1 then
 begin
  writeln('Обмен невозможен');
  exit;
 end;
x:=a[1];
a[1]:=a[imx];
a[imx]:=x;
writeln('Массив после обмена первого и максимального');
for i:=1 to n do
write(' ',a[i]);
end.