Преобразовать матрицу путем деления всех элементов на максимальный элемент матрицы - Turbo Pascal

Формулировка задачи:

Дана матрица F(5,6) действительных чисел. Преобразовать ее путем деления всех элементов на максимальный элемент матрицы.

Решение задачи: «Преобразовать матрицу путем деления всех элементов на максимальный элемент матрицы»

Листинг программы

const n=5; 
 m=6;
var
 a:array[1..n,1..m] of real;
  max:real;
   i,j:integer;
begin 
 randomize;
  for i:=1 to n do begin
   for j:=1 to m do begin
    a[i,j]:=random(50);
     write(a[i,j]:5);
end;
 writeln;
end;
 max:=a[i,j];
  for i:=1 to n do 
   for j:=1  to m do begin 
    if a[i,j]>max then max:=a[i,j];
end;
 writeln('Максимальный элемент = ',max);
  for i:=1 to n do begin 
   for j:=1 to m do begin 
    a[i,j]:=a[i,j]/max;
     write(a[i,j]:5:5);
end;
 writeln;
end;
end.

Объяснение кода листинга программы

Объявляются переменные n, m, a, max, i, j.
Задается начальное значение для каждой переменной.
Генерируется случайное значение для каждого элемента матрицы a.
Находится максимальное значение в матрице.
Для каждого элемента матрицы a вычисляется отношение к максимальному значению.
Выводится результат на экран.