Разделить элементы каждого столбца заданной матрицы В на последний элемент столбца

uses crt;
 
const
  nmax = 10;
 
var
  B : array [1..nmax, 1..nmax] of real;
  i, j, n, m : integer;
 
begin
  ClrScr;
  Repeat
    Write('Количество строк (не больше ', nmax, ') = ');
    Readln(n);
  until n in [1..nmax];
  Repeat
    Write('Количество столбцов (не больше ', nmax, ') = ');
    Readln(m);
  until m in [1..nmax];
  Writeln('Введите элементы матрицы: ');
  for i := 1 to n do
    for j := 1 to m do  Readln(B[i, j]);
  ClrScr;
  Writeln('Исходная матрица: ');
  for i := 1 to n do
    begin
      for j := 1 to m do
        Write(B[i, j]:0:4, ' ');
      Writeln;
    end;
  Writeln('Новая матрица: ');
  for j := 1 to m do
    begin
      if B[n, j] <> 0 then  for i := 1 to n do  B[i, j] := B[i, j]/B[n, j]
        else Writeln('В ', j, ' столбце - деление на ноль!');
    end;
  for i := 1 to n do
    begin
      for j := 1 to m do
        Write(B[i, j]:0:4, ' ');
      Writeln;
    end;
end.

uses crt;
 
const
  nmax = 10;
 
type
  Matrix = array [1..nmax, 1..nmax] of real;
  
procedure EnterMatrix (var B : Matrix; var n, m : integer);
var
  i, j : integer;
begin
  Repeat
    Write('Количество строк (не больше ', nmax, ') = ');
    Readln(n);
  until n in [1..nmax];
  Repeat
    Write('Количество столбцов (не больше ', nmax, ') = ');
    Readln(m);
  until m in [1..nmax];
  Writeln('Введите элементы матрицы: ');
  for i := 1 to n do
    for j := 1 to m do  Readln(B[i, j]);
end;
 
procedure PrintMatrix (B : Matrix; n, m : integer);
var
  i, j : integer;
begin
  for i := 1 to n do
    begin
      for j := 1 to m do
        Write(B[i, j]:0:4, ' ');
      Writeln;
    end;
end;
 
procedure EditMatrix (var B : Matrix; n, m : integer);
var
  i , j : integer;
begin
  for j := 1 to m do
    begin
      if B[n, j] <> 0 then  for i := 1 to n do  B[i, j] := B[i, j]/B[n, j]
        else Writeln('В ', j, ' столбце - деление на ноль!');
    end;  
end;
 
var
  B : Matrix;
  n, m : integer;
 
begin
  ClrScr;
  EnterMatrix(B, n, m);
  ClrScr;
  Writeln('Исходная матрица: ');
  PrintMatrix(B, n, m);
  Writeln('Новая матрица: ');
  EditMatrix(B, n, m);
  PrintMatrix(B, n, m);
end.