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

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

[Гость]

Спасибо большое и на этом.
К сожалению посмотрел задание - 87 это один из 8 элементов массива {19,21,17,25,87,1,13,4}
Это кстати задание из ЕГЭ по информатике, вот не могу детям объяснить.

[Lapp]

К сожалению посмотрел задание - 87 это один из 8 элементов массива {19,21,17,25,87,1,13,4}
Это кстати задание из ЕГЭ по информатике, вот не могу детям объяснить.

Этого не может быть. Точка.

Гость, так не хорошо. По-видимому, ты не вьюнош, чтоб тобой понукать - но зачем нарушать правила? Зарегистрируйся, как нормальный человек, и создавай свои темы, как положено, а не флуди в чужих. Кстати, чтение Правил обязательно и для гостей..

Еще раз по теме: появление значения 87 (89) в элементах массива a в приведенном выше коде невозможно. Я, конечно, говорю про нормальный компилятор (Borland, FPC..) - за всякие ABC я не отвечаю..
Как показывает опыт, в большинстве случаев "невозможных" ошибок оказывается, что реально запускаемый код на самом деле отличается от приведенного ранее в теме. Пожалуйста, приведи текущий вариант кода - тот, в котором получается вот такая петрушка - а также свой компилятор. Тогда будем выяснять.