В матрице C(5×3) вычислить среднее арифметическое в каждой строке.Если наибольшее среднее арифметическое меньше числа 3.2, то все элементы матрицы разделить на этот максимум, в противном случае матрицу оставить без изменений — Pascal(Паскаль)

program test;
var c:array [1..5,1..3] of real;
i,j:integer;sa,nsa:real;
begin
randomize;
writeln('matritsa1');
for i:=1 to 5 do
begin
sa:=0;
for j:=1 to 3 do
begin
c[i,j]:=random(10);
sa:=sa+c[i,j];
write(c[i,j]:6:2,' ');
end;
sa:=sa/3;
if i=1 then nsa:=sa else if sa>nsa then nsa:=sa;
writeln;
end;
writeln('Srednee arifm=',nsa:6:2);
writeln;
writeln('Matritsa2');
for i:=1 to 5 do
begin
for j:=1 to 3 do
begin
if nsa<3.2 then
c[i,j]:=c[j,i]/nsa;
write(c[i,j]:6:2,' ');
end;
writeln;
end;
readln;
end.