Частное от деления элементов в исходной матрице на максимальный элемент побочной диагонали

uses crt;
var a:array[1..10,1..10] of integer;
  b:array[1..10,1..10] of real;
      i,j,n,max,maxi,Pmax,pmaxi,p:integer;
  begin
  clrscr;
  randomize;
  write('razmernost matrici n=');
  readln(n);
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=random(60);
      write(a[i,j]:4);
     end;
    writeln;
   end;
  max:=a[1,1];maxi:=1;
  for i:=1 to n do
  if a[i,i]>max then begin max:=a[i,i];maxi:=i end;
//  writeln('max elem glavnoi diagonali=',max);
  Pmax:=a[1,n];pmaxi:=1;
  for i:=1 to n do
  if a[i,n-i+1]>pmax then begin pmax:=a[i,n-i+1];pmaxi:=i end;
  writeln('Max element na pobochnoy diagonali=',Pmax);
  for i:=1 to n do
   begin
    for j:=1 to n do
      begin
        b[i,j]:=a[i,j]/pmax;
        write (b[i,j]:6:2);
      end;
    writeln
   end;
  readln
  end.