Вычислить наименьший элемент матрицы

var
 a:array [1..4,1..3] of integer; {Ìàññèâ}
 n, m : integer; {Êîëè÷åñòâî ñòðîê è ñòîëáöîâ â ìàññèâå}
 i, j,o,u: integer; {Èíäåêñû: i - ñ÷åò÷èê ñòðîê, j - ñ÷åò÷èê ýëåìåíòîâ â ñòðîêå}
 min : integer; {Ìèíèìàëüíûé ýëåìåíò ìàññèâà}
 imin : integer; {Èíäåêñ ñòðîêè ìèíèìàëüíîãî ýëåìåíòà}
 jmin : integer; {Èíäåêñ ñòîëáöà ìèíèìàëüíîãî ýëåìåíòà}
begin
  randomize;{Çàïóñê ãåíåðàòîðà ñëó÷àéíûõ ÷èñåë}
 n := random(4) + 1; {Ãåíåðèðóåòñÿ çíà÷åíèå â èíòåðâàëå}
 m := random(3) + 1; {îò 1 äî 10}
 for i := 1 to n do     {Ãåíåðàöèÿ ñëó÷àéíîãî ìàññèâà}
 for j := 1 to m do
 a[i,j] := random(4) + 1; {Ãåíåðàöèÿ ïî î÷åðåäè  âñåõ ýëåìåíòîâ ìàññèâà}
 min := a[1,1]; {Ïîèñê ìèíèìàëüíîãî ýëåìåíòà ìàññèâà}
imin := 1;      { íà÷àëå ïîèñêà ìèíèìàëüíûì jmin := 1;}
for i := 1 to n do   {ñ÷èòàåì ïåðâûé ýëåìåíò}
 for j := 1 to m do
   if a[i,j] < min then {Åñëè êàêîé-òî ýëåìåíò ìåíüøå ðàíåå}
  begin                 {íàéäåííîãî ìèíèìóìà, òî ýòîò}
     min := a[i,j];     {ýëåìåíò ñòàíîâèòñÿ ìèíèìàëüíûì}
     imin := i;
     jmin := j;
  end;
 writeln; {Âûâîä ìàññèâà â âèäå òàáëèöû }
for i := 1 to n do
begin
  for j := 1 to m do
     write(a[i,j]:4);
  end;
     for o:=1 to  m-1 do    {Óäàëÿåì ñòðîêó}
  for u:=i to  n-1 do
  a[o,u]:=a[o,u+1];
    for i := 1 to n do
begin
  for j := 1 to m do
     write(a[o,u]:4);
  end; {Âûâîä ìàññèâà â âèäå òàáëèöû }
      end.

const n = 4;
      m = 3;        {Количество строк и столбцов в массиве}
var
 a:array [1..4,1..3] of integer; {Массив}
 i, j, imin, jmin: byte; {Индексы: i - счетчик строк, j - счетчик элементов в строке}
 min, k : integer;
 
begin
  randomize;           {Запуск генератора случайных чисел}
 
 for i := 1 to n do
     for j := 1 to m do
          a[i,j] := random(9) + 1;     {1..10}
 
min := a[1,1]; imin := 1; jmin :=1;
 
for i := 1 to n do
    for j := 1 to m do
        if a[i,j] < min then
  begin
     min := a[i,j];
     imin := i;
     jmin := j;
  end;
 
 
for i := 1 to n do begin  {вывод исходной матрицы}
    writeln;
    for j := 1 to m do
     write(a[i,j]:4,' ');
  end;
 writeln;
 writeln;
 
for i:=imin to n-1 do
    for j:=1 to  m do
           a[i,j] := a[i+1,j];        {Удаляем строку}
 
for j:=1 to m do a[n,j]:=0;
k := n-1;
 
for i := 1 to k do  begin             {вывод измененной матрицы}
    writeln;
    for j := 1 to m do
        write(a[i,j]:4,' ');
end;
end.
 
{Фактически в тут последняя строка никуда не девается.
Значения строки с минимальным элементом становятся равными следующей строке,
и так далее до последней строки, а последняя обнуляется и не выводится.
Это происходит т.к. в обычном массиве границы диапазонов
являются константами и не могут быть изменены/
Полное удаление строки с изменением размерности массива возможно в динамических массивах.}