Поделить все элементы каждой строки на наибольший по модулю элемент

program test;
uses crt;
const n=3; m=5;
var a:array[1..n,1..m] of real;i,j:integer;k:real;
begin
clrscr;
writeln('Введите элементы масива');
for i:=1 to n do {заносим данные}
for j:=1 to m do
readln(a[i][j]); 
for i:=1 to n do
begin
k:=a[i][1]; {k это типа у нас макс по модулю, сначало первый в строке}
for j:=1 to m do
begin
write(a[i][j]:4:2, ' '); {это выводим начальную таблицу}
if k<abs(a[i][j]) then {сравниваем каждый элемент строки и ищем макс}
k:=abs(a[i][j]);
end;
writeln;
writeln('k=', k:4:2,' '); {выводим макс строки на экран}
for j:=1 to m do {для всей строки просчитываем новые элементы строки по формуле: элемент делить на макс}
begin
a[i][j]:=a[i][j]/k; 
end;
end;
writeln;
for i:=1 to n do {выводим измененную таблицу}
begin
for j:=1 to m do
write(a[i][j]:4:2, ' ');
writeln;
end;
readln
end.

program test;
uses crt;
const n=3; m=5;
var a:array[1..n,1..m] of real;i,j:integer;k:real;
begin
clrscr;
k:=0;
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
for i:=1 to n do
begin
k:=a[i,1];
for j:=1 to m do
begin
write(a[i,j]:4:2, ' ');
if k<abs(a[i,j]) then
k:=abs(a[i,j]);
end;
writeln;
writeln('k=', k:4:2,' ');
for j:=1 to m do
begin
a[i,j]:=a[i,j]/k;
end;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4:2, ' ');
writeln;
end;
readln
end.

a[i,j]:=random(100)-50;//целые или
a[i,j]:=100*random-50;//вещественные