Найти в коде программы строку. Не могу найти где прописан конкретный оператор и действие

unit unit2;
interface
   const
      n = 100;
      m = 100;
   type mas = array[1..n, 1..m] of integer;
   type mas2 = array[1..m] of integer;
 
procedure setArray(var a:mas; var n, m:integer);
procedure formArray(var a:mas; var b:mas2; var n, m:integer);
procedure writeArrayb(var b:mas2; var m:integer);
 
procedure changeDiagonal(var a:mas; var n, m:integer);
procedure writeArraya(var a:mas; var n, m:integer);
 
implementation
 
procedure setArray;
var i, j:integer;
begin
   writeln('Vvedite Elementy massiva razmernosti ', n, 'x', m);
   for i := 1 to n do begin
      for j := 1 to m do begin
         read(a[i][j]);
      end;
   end;
end;
 
procedure formArray;
var i, j, max, min:integer;
begin
   for i := 1 to m do begin
      min := a[1][i];
      max := a[1][i];
      for j := 1 to n do begin
         if(max < a[j][i]) then begin
            max := a[j][i];
         end;
         if(min > a[j][i]) then begin
            min := a[j][i];
         end;
      end;
      b[i] := max - min;
   end;
end;
 
procedure writeArrayb;
var i:integer;
begin
   writeln('Poluchenyj odnomernyj massiv razmernosti ', m);
   for i := 1 to m do begin
      write(b[i], ' ');
   end;
   writeln('');
   writeln('');
end;
 
procedure changeDiagonal;
var i, min, buf: integer;
begin
 
   if(n > m) then begin
      min := m;
   end else begin
      min := n;
   end;
 
   for i := 1 to min do begin
      buf := a[i][i];
      a[i][i] := a[i][m-i+1];
      a[i][m-i+1] := buf;
   end;
end;
 
procedure writeArraya;
var i, j: integer;
begin
   writeln('Changed Diagonal:');
   for i := 1 to n do begin
      for j := 1 to m do begin
         write(a[i][j], ' ');
      end;
      writeln('');
   end;
end;
 
end.

uses unit2;
var
   a:mas;
   b:mas2;
   n, m:integer;
begin
   n := 5;
   m := 4;
   setArray(a, n, m);
   formArray(a, b, n, m);
   writeArrayb(b, m);
 
   changeDiagonal(a, n, m);
   writeArraya(a, n, m);
   readln
end.