Найти максимальный и минимальный элементы в каждой строке и поменять их местами с элементами первой и последней позиции соответственно

Program Proga;
uses crt;
var a: array [1..10 ,1..10] of real;
    i,j:integer;
    x,y,max,min,buf:real;
    f:text;
 
 
begin
clrscr;
assign(f,'file.txt');
rewrite(f);
x:=4.9;
 
for i:=1 to 10 do
for j:=1 to 10 do
begin
 
a[i,j]:=cos(exp(ln(x)*0.25)-0.5*exp(ln(x)*0.5)+0.25*exp(ln(x)*0.75));
x:=x+0.26;
end;
 
for i:=1 to 10 do
begin
for j:=1 to 10 do
  begin
  write(a[i,j]:6:3,' ');
  write(f,a[i,j]:6:3,' ');
  end;
writeln(f);
writeln;
end;
 
 
writeln;
writeln;
writeln(f);
writeln(f);
 
 
for i:=1 to 10 do
  begin
  max:=a[i,1];
   for j:=1 to 10 do
     if a[i,j]>max then
    begin
    buf:=a[i,j];
    a[i,j]:=a[i,1];
    a[i,1]:=buf;
    end;
   end;
 
for i:=1 to 10 do
  begin
  min:=a[i,1];
   for j:=1 to 10 do
     if a[i,j]<min then
    begin
    buf:=a[i,j];
    a[i,j]:=a[i,1];
    a[i,1]:=buf;
    end;
  end;
 
for i:=1 to 10 do
begin
for j:=1 to 10 do
  begin
  write(a[i,j]:6:3,' ');
  write(f,a[i,j]:6:3,' ');
  end;
writeln(f);
writeln;
end;
 
 
close(f);
readln;
end.

for i:=1 to n do
  begin
  min:=a[i,n];
   for j:=1 to n do
     if a[i,j]<min then
        begin
        buf:=a[i,j];
        a[i,j]:=a[i,n];
        a[i,n]:=buf;
        end;
  end;