Нужно чтобы в матрице находило максимальный элимент и справо от него вставляло колонку с нулями в столбик

[Romer9999]

Помогите пожалуйста срочно!!!! я уже просил помощи по этой задаче здесь мне помогли но я ничего не понял. Вообще не знаю как делать.
Нужно чтобы в матрице находило максимальный элимент и справо от него вставляло колонку с нулями в столбик и снизу тоже (создавало ещё одну строчку) и выделяло этот элемент красным цветом
я уже всё зделал только не знаю как его выделить и эти строчки вставить
Вот код что я наделал

program dash5;
uses crt;
type
mas=array [1..50,1..50] of real;
var
b:mas;
a:array [1..50] of real;

i,j,m,n,lo,no,k,kk:integer;
s,summstr,min,max:real;

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);}


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

write (b[i,j]:5:2,' ');   end;
writeln;
end;
writeln;
{**************************}                      {luboe chislo}

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;
no:=j;
end;   }
max:=-10000;
lo:=1;
no:=1;
For i:=1 to n do
for j:=1 to m do
If a[i]>max then begin
max:=a[i];
k:=i;
kk:=j;
writeln;
writeln ('element   ',i);
writeln (j);

readln;
end;
end.

не знаю что там где правильно.
Помогите пожалуйста!!!!

[alex_fcsm]

Чем Вам Здесь не нравится http://programmersforum.ru/showthread.php?t=30956

[Romer9999]

ну не так там нужно чтоб вид был:
Например:
****************************
5 7 0 8 9
4 * 0 3 2
0 0 0 0 0
6 4 0 2 0
****************************
(*- max элемент )
(справа от * вставился столбик с нулями и ниже этого элемента строка с нулями вставилась размерность мартрицы увеличилась
что собственно я и не могу сделать.
Я сегодня пытался делать но всё равно ничего не получилось.

PHP код:

program dash5;
uses crt;
type
mas=array [1..10,1..10] of real;
var
b:mas;
a:array [1..50] of real;

i,j,m,n,lo,no,k,kk,q:integer;
s,summstr,min,max:real;

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(50)*1.7-8;
writeln;                         {matricu vuvodim}
 gotoxy(10,1);
 writeln ('ucxoDHa9l MaTpuua');
{ gotoxy(40,1);}


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


write (b[i,j]:5:1,' ');   end;
writeln;
end;
writeln;
{**************************}                      {luboe chislo}

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;
no:=j;
end;   }
max:=-10000;
lo:=1;
no:=1;
For i:=1 to n do
for j:=1 to m do
If b[i,j]>max then begin
max:=b[i,j];
k:=i;
kk:=j;
writeln;
writeln ('str ',i);
writeln ('el  ',j);
end;
writeln ('max',max:4:2);

if b[i,j]=max then
textcolor(4);
for i:=1 to n do begin
for j:=1 to m do begin
if b[i,j]=max then
textcolor(4);
if b[i,j]<>max then
textcolor(2);
write (b[i,j]:4:1,' ');
end;
writeln;
end;
readln;
end. 


[alex_fcsm]

Запустите что Вам предлагают и посмотрите