Матрица: добавление пустых строк

[Romer9999]

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

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;
clrscr;
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
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.

Только пожалуйста измините эту задачу а не пишите новую. она всё делает единственное что нужно чтобы задача искала в матрице max число max элемента вставляла столбик с нулями и ниже строчку вставляла с нулями (размерность матрицы увеличивается) тут уж всё сделано просто нужно вставить вообще не знаю как сделать.

[SuperVisor]

Может ночь на дворе, может еще что, только я так и не понял, куда именно тебе нужно вставить столбик и строчку с нолями... Имеется ввиду так:

1 3 5 2
8 7 9 3
2 4 2 7
1 4 6 8
=>
1 3 5 0 2
8 7 9 0 3
0 0 0 0 0
2 4 2 0 7
1 4 6 0 8

Если да - пиши, если нет, тоже пиши, будем разбирать.
З.Ы. Ставь знаки препинания - для чтения неудобоваримо...

[Romer9999]

да именно так. Не знаю как нули вставить

[alex_fcsm]

ТО?

program dash5;
uses crt;
type
mas=array [1..10,1..10] of real;
var  b:mas;
     i,j,m,n,k,kk:integer;

begin
clrscr;
randomize;
textcolor (2);
writeln ('Vvedite razmernost MxN');
readln (n);
readln (m);
clrscr;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    b[i,j]:=random(50)*1.7-8;
    writeln;
    gotoxy(8,1);
    writeln ('ucxoDHa9l MaTpuua');
    gotoxy(1+5*j,1+2*i);
    write (b[i,j]:5:1,' ');
   end;
  writeln;
 end;
k:=1;kk:=1;
For i:=1 to n do
 for j:=1 to m do
   If b[i,j]>b[k,kk] then
    begin
     k:=i;
     kk:=j;
    end;
writeln;
TextColor(4);
writeln ('max ',b[k,kk]:4:2);
writeln;
TextColor(2);

for i:=n+1 downto k+1 do
for j:=1 to m+1 do
 b[i,j]:=b[i-1,j];

 for j:=m+1 downto kk+1 do
  for i:=1 to n+1 do
   b[i,j]:=b[i,j-1];


 for j:=1 to m+1 do
  b[k+1,j]:=0;

 for i:=1 to n+1 do
  b[i,kk+1]:=0;

 for i:=1 to n+1 do
  begin
   for j:=1 to m+1 do
    begin
     if (i=k) and (j=kk)  then TextColor(4)
        else TextColor(2);
      write(b[i,j]:6:1);
    end;
   writeln;
  end;
end.

[Romer9999]

Спасибо огромное за помощь!!!!!!!