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

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

[volvo]

у меня выводит блин одним из элементов массива 89 почему?

Это не один из элементов массива равен 89, а два числа сливаются. Сделай так:

{ ... }
if (i>n) or (b<=a[i]) then
s := 'задача решена';
writeln(k:5,' ',s); { <--- Здесь тоже зададим формат для вывода }
end.

, и ты увидишь...

Касательно самого задания, "что делает прога" и т.д - это уже разбирайся самостоятельно. Достаточно внимательно посмотреть на программу (в крайнем случае - пройти пошагово), чтобы понять, что она делает.

Тем более, что я просил не набирать программу здесь, а показать (скопировать или приаттачить) ГОТОВУЮ, работающую программу. Твой код из сообщения №11 даже не компилируется. Ты думаешь, мне больше делать нечего, кроме как исправлять ошибки у тебя в коде? Да кто еще знает, может там еще какие символы перепутаны, и программа вообще не будет делать того, что подразумевалось тобой. Нет рабочей программы - извини, я ничем помочь больше не могу...