Задание по теме "Двумерные массивы"

var
  a: array[1..100,1..100] of integer;
  i,j,j1,n,m,min,max,k,l: integer;
Begin
  randomize;
  readln(n,m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=round(random(80)+10);
          write(a[i,j],' ');
        end;
      writeln;
    end;
  writeln;
  writeln;
  for i:=1 to n do
    begin
      k:=a[i,1];
      l:=a[i,m];
      max:=a[i,1];
      j1:=m;
      for j:=1 to m do
        if (a[i,j]>max) then
          begin
            max:=a[i,j];
            j1:=j;
          end;
      a[i,m]:=max;
      a[i,j1]:=l;
      min:=a[i,1];
      j1:=1;
      for j:=1 to m do
        if (a[i,j]<min) then
          begin
            min:=a[i,j];
            j1:=j;
          end;
        a[i,1]:=min;
        a[i,j1]:=k;
    end;
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j],' ');
      writeln;
    end;
  readln;
End.