Паскаль. Матрица.

program matrix;
uses crt;
type mas=array[1..5,1..10] of integer;
var i,j,t,max,min,n1,n2:integer;
   a:mas;
begin
clrscr;
randomize;
textcolor(10);
for i:=1 to 5 do
      begin
    for j:=1 to 10 do
      begin
            a[i,j]:=random(999);
            write(a[i,j]:4,'  ');
      end;
          writeln;
     end;
 
   for i:=1 to 5 do
      begin
        max:=-9990;
        min:=9990;
    for j:=1 to 10 do
      begin
            if a[i,j]>max then begin
                                  max:=a[i,j];
                                  n1:=j;
                                end;
           if a[i,j]<min then begin
                                  min:=a[i,j];
                                  n2:=j;
                                end;
      end;
       writeln(max,'  ',min);
       t:=a[i,n1];
       a[i,n1]:=a[i,n2];
       a[i,n2]:=t;
     end;
writeln;
writeln;
textcolor(12);
for i:=1 to 5 do
      begin
    for j:=1 to 10 do
      begin
        write(a[i,j]:4,'  ');
      end;
      writeln;
     end;
 
readln;
end.