Вычесть элементы строки с наибольшим элементом матрицы из всех остальных строк

uses crt;
var a: array [1..100,1..100] of integer;
    i,j,n,m,imax,jmax: integer;
begin
writeln('n,m=');
readln(n,m);
imax:=1; jmax:=1;
writeln('Èñõîäíûé ìàññèâ');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(101)-50;
        write(a[i,j]:4);
        if a[i,j]>a[imax,jmax] then
           begin
           imax:=i;
           jmax:=j;
           end;
        end;
    writeln;
    end;
writeln('Ìàêñèìàëüíûé ýëåìåíò = ',a[imax,jmax],' â ñòðîêå ',imax,' â ñòîëáöå ',jmax);
writeln('Ïðåîáðàçîâàííûé ìàññèâ');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        if i<>imax then
           a[i,j]:=a[i,j]-a[imax,j];
        write(a[i,j]:4);
         end;
    writeln;
    end;
end.

uses crt;
var a: array [1..100,1..100] of integer;
    i,j,n,m,imax,jmax: integer;
begin
writeln('n,m=');
readln(n,m);
imax:=1; jmax:=1;                 //изначально считаю что максимальный = это первый
writeln('Исходный массив');
for i:=1 to n do                  //цикл с параметром для перебора строк
    begin
    for j:=1 to m do                 //цикл с параметром для перебора столбцов
        begin
        a[i,j]:=random(101)-50;    //генератор случайных чисел от -50 до 50
        write(a[i,j]:4);               //вывод на экран
        if a[i,j]>a[imax,jmax] then         //если элмент больше максимального
           begin
           imax:=i;                         //замнить индексы максимального на индексы элемента
           jmax:=j;
           end;
        end;
    writeln;
    end;
writeln('Максимальный элемент = ',a[imax,jmax],' в строке ',imax,' в столбце ',jmax);     //вывод
writeln('Преобразованный массив');
for i:=1 to n do                                         //цикл для строк
    begin
    for j:=1 to m do                                        //цикл для столбцов
        begin                                               //если это не строка с максимальным элементом
        if i<>imax then
           a[i,j]:=a[i,j]-a[imax,j];                        //то из элемента вычесть соответствующий элемент строки с максимумом
        write(a[i,j]:4);                                    //вывести новое значение на экран
         end;
    writeln;
    end;
end.