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

[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.