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

uses
    crt;
const
     lim=100;
var
   a:array[1..lim,1..lim] of real;
   s:array[1..lim] of real;
   i,j,n,m:integer;
procedure vvod;
begin
     writeln('wvedite n');
     readln(n);
     writeln('wvedite m');
     readln(m);
      writeln('wvedite massiv ',n,'x',m);
     for i:= 1 to n do
         begin
              for j:= 1 to m do
                  read(a[i,j]);
         end;
end;
procedure delen;
var
   max:real;
begin
     max:=abs(a[1,1]);
     for i:= 1 to n do
         begin
              for j:= 1 to m do
                  begin
                       if abs(a[i,j])>max then
                          max:=abs(a[i,j]);
                  end;
            writeln('max element v ',i,'-stroke raven ', max);
                         for j:= 1 to m do
                             begin
                                  s[j]:=a[i,j]/max;
                                  writeln('rezultat deleni9 ',i,'-stroki na element ',j,'-elemta raven ',s[j]:2:4);
                             end;
            max:=abs(a[1,1]);
         end;
end;
begin
     vvod;
     delen;
     readkey
end.

Program Lab6;
Uses crt; {Подключение модуля CRT}
Var a:array[1..100,1..100] of real; {Задание массива}
i,j,n,m:integer; {Описание переменных}
max:real;
Begin
Clrscr; {Очистка экрана}
Randomize; {Генератор случайных чисел}
Write('Введите количество строк n<100: ');
Readln(n);
Write('Введите количество столбцов m<100: ');
Readln(m);
Writeln;
Writeln('Исходный массив:');
For i:=1 to n do {Условие цикла}
Begin
For j:=1 to m do
Begin
a[i,j]:=random(100); {Заполнение массива случайными числами}
Write(a[i,j]:5:2,' '); {Вывод массива}
End; {Конец цикла}
Writeln;
End;
{-------------------------------------------------------------------------}
For i:=1 to n do {Условие цикла}
Begin
max:=a[1,1];
For j:=1 to n do
If a[i,j]>max then max:=a[i,j];
For j:=1 to n do
a[i,j]:=a[i,j]/max;
End;
{-------------------------------------------------------------------------}
Writeln;
Writeln('Результат деления элементов строк на максимальный в них:');
For i:=1 to n do
Begin
For j:=1 to m do
Write(a[i,j]:4:2,' ');
Writeln;
End;
Readln;
End.