В квадратной матрице максимальные элементы боковых диагоналей перевести на главную диагональ

Program O;
uses Crt;
var
   i,j,k,l,l1,l2,z,max :integer;
   a :array[1..7,1..7] of integer;
label 100;
 
begin
   randomize;
   clrscr;
   for i:= 1 to 7 do begin
      for j:= 1 to 7 do
         begin
            a[i,j]:= Random(10);
            write(a[i,j]:4)
         end; writeln end;
 
   k:= 4;
   repeat
      l1:= k div 2;
      l2:= l1;
      max:= a[l1,l2];
      for i:= 1 to 7 do
      for j:= 1 to 7 do
         begin
            if i+j<>k then continue;
            if a[i,j] > max then
               begin
                  max:= a[i,j];
                  l1:= i;
                  l2:= j
               end;
          end;
      l:= k div 2;
      z:= a[l1,l2];
      a[l1,l2]:= a[l,l];
      a[l,l]:= z;
      k:= k + 2;
   until k > 12;
 
   writeln;
   for i:= 1 to 7 do begin
      for j:= 1 to 7 do
         write(a[i,j]:4);
      writeln end;
end.