массив

Program zad1;
Type mas=array[1..10,1..15] of integer;
Var  a:mas;
     i,j,mini,minj,maxi,maxj,min,max,p,n,k:integer;
Begin
ReadLn(n,k);
For i:=1 to n do
For j:=1 to k do
Read(a[i,j]);
For i:=1 to n do
begin min:=a[i,1]; max:=a[i,1];
      for j:=1 to k do
      if min<a[i,j] then
      begin min:=a[i,j];
            mini:=i;
            minj:=j;
      end;
      if max>a[i,j] then
      begin max:=a[i,j];
            maxi:=i;
            minj:=j;
      end;
p:=a[maxi,minj];
a[maxi,minj]:=a[mini,minj];
a[mini,minj]:=p;
end;
writeln('Массив после изменения:');
for i:=1 to n do
 begin
  for j:=1 to k do
  write(a[i,j]:4);
  writeln;
end;
end.

Uses crt;
const
     n=10;
     m=15;
var A:array[1..n,1..m] of integer;
i,j,jmin,jmax,min,max,buf:integer;
Begin
randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
    begin
    a[i,j]:=Random(15)+1;
    write(a[i,j]:3);
    end;
    writeln;
  end;
for i:=1 to n do
begin
         min:=a[i,1];
         max:=a[i,1];
 
         for j:=1 to m do
             begin
                  if a[i,j]>max then
                     begin
                     max:=a[i,j];
                     jmax:=j;
                     end;
                  if a[i,j]<min then
                  begin
                  min:=a[i,j];
                  jmin:=j;
                  end;
             end;
 
             buf:=a[i,jmin];
             a[i,jmin]:=a[i,jmax];
             a[i,jmax]:=buf;
end;
 
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
End.