Если последний элемент столбца матрицы отличен от нуля, разделить на него все элементы этого столбца

program Project1;
 
type
  TArr1 = array[1..10,1..10] of real;
  TArr2 = array[1..10] of real;
 
procedure OutPrint1(arr:TArr1; nn,mm: integer);
// Процедура для вывода двумерного массива на экран.
var
  i,j: integer;
begin
for i:= 1 to nn do
   begin
    for j:= 1 to mm do
      write(arr[i,j]:7:2);
   writeln;
   end;
end;
 
procedure OutPrint2(arr:TArr2; mm: integer);
// Процедура для вывода одномерного массива на экран.
var
  j: integer;
begin
    for j:= 1 to mm do
      write(arr[j]:7:2);
    writeln;
end;
 
procedure SortArr (var arr:TArr2; mm: integer);
// Процедура для сортировки одномерного массива по возрастанию.
var
  i,j: integer;
  temp: real;
begin
for i := 1 to mm-1 do
 for j := 1 to mm-i do
   if arr[j] > arr[j+1] then
     begin
      temp := arr[j];
      arr[j] := arr[j+1];
      arr[j+1] := temp;
     end;
 
end;
 
var
  a: TArr1;     // Переменная для хранения двумерного массива.
  b: array[1..4] of TArr2; // Переменная для хранения четырех одномерных массивов.
  m,n: integer;        // Переменные для хранения значений количества строк и столбцов.
  i,j: integer;        // Вспомогательные переменные для организации циклов.
  vib: integer;         // Вспомогательная переменная для организации выбора режима заполнения двумерного массива.
 
begin
  Randomize;
  Write('Введите значение количества строк: ');
  Readln(n);
  Write('Введите значение количества столбцов: ');
  Readln(m);
  Writeln('Введите 1, если ввод чисел будет осуществляться в ручном режиме');
  Writeln('Введите 2, если числа будут заданы генератором случайных чисел');
  Readln(vib);
  case vib of    // Условие выбора.
  1: for i:= 1 to n do
      for j:= 1 to m do
       begin
        writeln('Введите элемент ',i,' строки ',j,' столбца.');
        Readln(a[i,j]);     // Ручной ввод значений в двумерный массив.
       end;
  2: for i:=1 to n do
      for j:=1 to m do
        a[i,j]:= (random(1001) - 500)/10;   // Ввод случайных чисел в двумерный массив.
 end;
 Writeln('Исходная матрица:');
 OutPrint1(a,n,m);       // Вывод двумерного массива на экран.
 for j:= 1 to m do
   if a[n,j] <> 0 then   // Условие проверки последнего элемента каждого столбца.
     for i:= 1 to n do
       a[i,j]:= a[i,j]/a[n,j];  // Деление значение последнего элемента столбцов на все остальные элементы.
 writeln;
 Writeln('Измененная матрица:');
 OutPrint1(a,n,m);             // Вывод двумерного массива на экран.
 writeln;
 for i:= 1 to 4 do
  begin
   for j:= 1 to m do
      b[i][j]:= a[i,j];   // Присвоение значений первых четырех строк двумерного массива одномерным массивам.
   Writeln('Исходный вектор #',i,'.');
   OutPrint2(b[i],m);    // Вывод одномерных массивов на экран.
  end;
  writeln;
  for i:= 1 to 4 do
    begin
     SortArr(b[i],m);  //  Сортировка одномерных массивов по возрастанию.
     Writeln('Измененный вектор #',i,'.');
   OutPrint2(b[i],m);   // Вывод одномерных массивов на экран.
    end;
 
 readln;
end.