Найти в каждой строке матрицы наибольший элемент

uses crt;
var
   a:array[1..100,1..100] of integer;
   max,buf:integer;
   mi,mj,i,j,n:byte;
begin
   clrscr;
   randomize;
   write('Порядок матрицы: ');
   readln(n);
   writeln('Исходная матрица:');
   for i:=1 to n do
      begin
         for j:=1 to n do
            begin
               a[i,j]:=random(50);
               write(a[i,j]:4);
            end;
         writeln;
      end;
   for i:=1 to n do
      begin
         max:=a[i,1];
         mi:=i; mj:=1;
         for j:=1 to n do
            if max<a[i,j] then
               begin
                  max:=a[i,j];
                  mi:=i;
                  mj:=j;
               end;
         buf:=a[i,i];
         a[i,i]:=max;
         a[mi,mj]:=buf;
      end;
   writeln('Новая матрица:');
      for i:=1 to n do
      begin
         for j:=1 to n do
            write(a[i,j]:4);
         writeln;
      end;
end.