Найти максимальный элемент матрицы и вставить правее него столбец из нулей и ниже него строку из нулей.

[Romer9999]

Всем привет помогите пожалуйста дорешать задачу запутался в конец)).
Дана двумерная матрица А размером (M на N). Найти максимальный элемент матрицы и вставить правее него столбец из нулей и ниже него строку из нулей. (Размерность матрицы при этом увеличится). При печати максимальный элемент вывести цветом, отличным от других элементов.
Вот что нарешал я :

program dash5;
uses crt;
type
mas=array [1..50,1..50] of real;
var
a:array [1..100] of real;
b:mas;
i,j,m,n,lo,no:integer;
s,summstr,min,max:real;
k:char;
begin
clrscr;
randomize;     {ochishaem}
textcolor (2);
writeln ('Vvedite razmernost MxN');  {vuvodim soobshenie o vvode}
readln (n);                         {chitaem n}
readln (m);

for i:=1 to n do begin        {ot i do m}
for j:=1 to m do begin
b[i,j]:=random(10)*1.7-8;
writeln;                         {matricu vuvodim}
 gotoxy(10,1);
 writeln ('ucxoDHa9l MaTpuua');
 gotoxy(40,1);
 writeln ('SUMMA ELEMENTOV');

gotoxy(1+5*j,1+2*i);
textcolor (2);

write (b[i,j]:5:2,' ');   end;
writeln;
end;
writeln;
{**************************}                      {luboe chislo}
for i:=1 to n do begin
a[i]:=0 ;
for j:=1 to m do  a[i]:=a[i]+b[i,j];

end;
writeln;writeln;
for i:=1 to n do begin
 gotoxy(20+4*j,1+2*i);
  writeln (' ',a[i]:4:2);
  end;
{naxodim max i min znachenie}  {
    min:=a[1];
    max:=a[1];
    lo:=1;
    no:=1;
for i:=1 to n do begin
for j:=1 to n do begin

if a[i,j]>max then   begin max:=a[i,j];
lo:=i;
end;
}
readln;
end.

если кто знаете помогите пожалуйста

[alex_fcsm]

uses crt;
const m=4;
      n=4;
var i,j,l,r,max:integer;
    a:array[1..m,1..n]of integer;

begin
clrscr;
 for i:=1 to m-1 do
 begin
  for j:=1 to n-1 do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
   end;
 writeln;
 end;
max:=a[1,1];l:=1;r:=1;
for i:=1 to m-1 do
 for j:=1 to n-1 do
  if a[i,j]>max then begin
                      max:=a[i,j];
                      l:=i;
                      r:=j;
                     end;
for i:=m downto l+1 do
 for j:=1 to n do
  a[i,j]:=a[i-1,j];
for j:=n downto r+1 do
  for i:=1 to m do
 a[i,j]:=a[i,j-1];
for j:=1 to n do
 a[l+1,j]:=0;
for i:=1 to m do
 a[i,r+1]:=0;
writeln('========================');
for i:=1 to m do
 begin
  for j:=1 to n do
    write(a[i,j]:3);
 writeln;
 end;
end.

[Romer9999]

Спасибо!!! только она чёт не вставляет правее

[alex_fcsm]

Сообщение от Romer9999

Спасибо!!! только она чёт не вставляет правее

15 35 44
96 2 37
51 67 25
=========
15 0 35 44
96 0 2 37
0 0 0 0
51 0 67 25


Это по Вашему НЕ ВСТАВЛЯЕТ