Решение матрици на Delphi

[Екатерина071]

Решение матрици на Delphi

[Екатерина071]

Дана квадратная матрица А размерности (n=6).
Получить по ней квадратную матрицу B той же размерности, являющуюся результатом следующего преобразования: элементы каждого столбца матрицы А разделить на среднее арифметическое значение этого же столбца. Найти наибольшие значения матрицы по столбцам.
Вот что я написала но мне кажется это не правильно:
PROGRAM VARIANT_10;
USES WinCrt;
VAR
A : ARRAY[1..6, 1..6] OF INTEGER;
I,J : INTEGER;
BEGIN
FOR I:= 1 TO 6 DO
BEGIN
FOR J:= 1 TO 6 DO
BEGIN
A[I,J] := random(99);
WRITE('|',A[I,J]);
END;
WRITEln;
END;
READLN;
END.
Var i,j:integer;
stolb:array [1..N] of real;
sr:real;
Begin
for j:=1 to n do
Begin
sr:=0;
for i:=1 to n do
sr:=sr+A[i,j];
Stolb[j]:=sr/n;
End;
Writeln
for j:=1 to n do
Writeln
End;
function Max(R:TRow):integer;
var
i:integer;
best:integer;
begin
best:=0;
for i:=0 to High(R) do
if best<R[i] then best:=R[i];
Result:=best;
end;
WRITEln;
END;
READLN;
END.
подскажите)))

[4ixOn]

непонял где собственно получение матрицы методом деления...
примерно так вот должно быть...

var
i,j:byte;
b:array[1..6,1..6]of real;
sr:real;

begin
for j:=1 to 6 do
begin
sr:=0;
for i:=1 to 6 do
sr:=sr+a[i,j];
sr:=sr/6;
for i:=1 to 6 do
b[i,j]:=a[i,j]/sr;
end;
end.

[4ixOn]

а максимальный элемент...

var
a:array[1..6,1..6]of integer;
max:integer;
i,j:byte;

begin
max:=a[1,1];
for i:=1 to 6 do
for j:=1 to 6 do
if a[i,j]>max then
max:=a[i,j]
end;

[Екатерина071]

0 3 85 20 27 66
31 16 36 42 8 47
6 83 5 29 90 36

76 32 69 83 71 30
16 32 46 24 81 27
47 14 86 28 76 96

[4ixOn]

а почему матрица то 3 на 6

[Екатерина071]

незнаю((((((((