Задача на двумерный массив, Пожалуйста помогите найти ошибки в программе! Опции

[hardest]

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

program mas2;
uses crt;
var
i,j,n,m,k,l,nach: integer;
mas:array[1..50,1..50] of integer;
begin
clrscr;
writeln('Введите размерность массива (число строк n и число столбцов m): ');
read(n,m);
randomize;
write('Данный массив:');
for i:=1 to n do
 for j:=1 to m do
   mas[i,j]:=-10+random(40);
 for i:=1 to n do begin writeln;
   for j:=1 to m do
     write(mas[i,j]:5); end;

nach:=mas[1,1];
k:=1;l:=1;
for j:=1 to 1 do
 for i:=1 to n do begin
   if mas[i,j]<nach then begin
     k:=j; l:=i;
     nach:=mas[i,j]
     end;
     end;
     writeln(k,' ',l);
for i:=l to n+1 do
for j:=k to m+1 do begin
  mas[i,j+1]:=mas[i,j];
  end;
write('Получился массив вида');
for i:=l to n do
for j:=k to m do begin
mas[l,j]:=0; mas[i,k]:=0;
end;

{for i:=1 to n do
for j:=1 to m do
 begin writeln;
   for j:=1 to m do
     write(mas[i,j]:5);end; }

writeln;
writeln;
For i:=1 To n+1 Do
  Begin
 For   j:=1   To  m+1   Do  Write (mas[i,j] : 5) ;
   Writeln;
  End;
readkey;
end.

[Lapp]

Подумавши немного, я пришел к выводу, что основной цикл можно существенно сократить, а также вставить туда запись нулей. Вот:

var
  i,j,n,m,k,l: integer;
  mas: array[1..50,1..50] of integer;

begin
  writeln('Введите размерность массива (число строк n и число столбцов m): ');
  readLn(n,m);
  {randomize;}  { раскомментировать только после отладки!}
  writeLn('Данный массив:');
  for i:=1 to n do for j:=1 to m do mas[i,j]:=-10+random(40);
  for i:=1 to n do begin
    for j:=1 to m do write(mas[i,j]:5);
    WriteLn
  end;
  { поиск минимального элемента }
  k:=1;
  l:=1;
  for i:=1 to n do for j:=1 to m do if mas[i,j]<mas[k,l] then begin
    k:=i;
    l:=j;
  end;
  writeln('Позиция минимального элемента: ',k,' ',l);

  Inc(n);
  Inc(m);
  for i:=n downto 1 do for j:=m downto 1 do
    mas[i,j]:=byte(i<>k)*byte(j<>l)*mas[i-byte(i>k),j-byte(j>l)];

  writeln('Результат: ');
  For i:=1 To n Do Begin
    For j:=1 To m Do  Write(mas[i,j] : 5) ;
    Writeln;
  End;
  readLn;
end.

Разберешься?

[hardest]

Подумавши немного, я пришел к выводу, что основной цикл можно существенно сократить, а также вставить туда запись нулей. Вот:

var
  i,j,n,m,k,l: integer;
  mas: array[1..50,1..50] of integer;

begin
  writeln('Введите размерность массива (число строк n и число столбцов m): ');
  readLn(n,m);
  {randomize;}  { раскомментировать только после отладки!}
  writeLn('Данный массив:');
  for i:=1 to n do for j:=1 to m do mas[i,j]:=-10+random(40);
  for i:=1 to n do begin
    for j:=1 to m do write(mas[i,j]:5);
    WriteLn
  end;
  { поиск минимального элемента }
  k:=1;
  l:=1;
  for i:=1 to n do for j:=1 to m do if mas[i,j]<mas[k,l] then begin
    k:=i;
    l:=j;
  end;
  writeln('Позиция минимального элемента: ',k,' ',l);

  Inc(n);
  Inc(m);
  for i:=n downto 1 do for j:=m downto 1 do
    mas[i,j]:=byte(i<>k)*byte(j<>l)*mas[i-byte(i>k),j-byte(j>l)];

  writeln('Результат: ');
  For i:=1 To n Do Begin
    For j:=1 To m Do  Write(mas[i,j] : 5) ;
    Writeln;
  End;
  readLn;
end.

Разберешься?

Да, разберусь. Спасибо Вам огромное!
Удачи Вам!