Пронормировать матрицу (10,12), то есть разделить каждый элемент на максимальный в своей строке — Pascal(Паскаль)

program test;
uses crt;
const n=10;
      m=12;
var mas:array[1..n,1..m] of real;
    i,j:integer;
    ma:real;
begin
clrscr;
randomize;
writeln('Ishodnyj massiv:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    mas[i,j]:=10*random;
    write(mas[i,j]:6:2);
   end;
  writeln;
 end;
writeln;
for i:=1 to n do
 begin
  ma:=mas[i,1];
  for j:=1 to m do
  if mas[i,j]>ma then ma:=mas[i,j];
  for j:=1 to m do
  mas[i,j]:=mas[i,j]/ma;
 end;
writeln('rezults');
for i:=1 to n do
 begin
  for j:=1 to m do
  write (mas[i,j]:6:2);
  writeln;
 end;
readln
end.

program test2 (input,output);
uses crt;
const n=10;
var F1:file of integer;
    i,j,p,jmax : integer;
    a:array[1..n,1..n] of integer;
begin
clrscr;
assign(F1,'f');
reset(F1);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    read(F1,a[i,j]);
    write(a[i,j],' ');
   end;
  writeln
 end;
for j:=1 to n do
 begin
  jmax:=1;
  for j:=2 to n do
  if a[i,jmax]<a[i,j] then jmax:=j;
  p:=a[i,i];
  a[i,i]:=a[i,jmax];
  a[i,jmax]:=p;
 end;
writeln('results');
for i:=1 to n do
 begin
  for j:=1 to n do
  write (a[i,j]:3);
  writeln;
 end;
close(F1);
readln;
end.