Паскаль двумерный маассив.

[Руслан56]

Есть процедуры ввод, вывод поиск минимального и заполнение нулем(nol).
Просят добавить подпрограмму сдвига. помогите добавить подпрограмму, вытащить ее из программы.
Основная

program pro1;
uses
    ob, obrabotki;
var
   masA:massiv;
   n,m:integer;
begin
     write('Введите количество строк:');
     readln(n);
     write('Введите количество столбцов:');
     readln(m);
     vvod(masA, n, m, -15);
     vivod(masA, n, m);
     nol(masA,n,m);
end.

Обработки

unit obrabotki;
interface
uses ob;
procedure vvod (var ma :massiv; an, am:integer; otric:integer);
procedure vivod (var ma:massiv; an,am:integer);
function Poiskmin (var ma:massiv; non, nom:integer):integer;
function nol (var ma :massiv; an, am :integer) :integer;
 
 
implementation
var i,j :integer;
procedure vvod (var ma:massiv; an,am:integer; otric:integer);
begin
     randomize;
         for i:=1 to an do
         for j:=1 to am do ma[i,j]:= random(50)+otric;
end;
procedure vivod (var ma:massiv; an,am:integer);
begin
     for i:=1 to an do
     begin
     for j:=1 to am do write(ma[i,j]:4);
     writeln;
end;
end;
function PoiskMin (var ma:massiv; non, nom:integer):integer;
var
n,min:integer;
begin
      n:=1;min:=ma[non,1];
   for j:=1 to nom do
      if ma[non,j]<min then
      begin
         min:=ma[non,j];
         n:=j;
      end;
Poiskmin:=n;
end;
 
function nol (var ma :massiv; an, am :integer) :integer;
var i,j:integer;
begin
   for i:=1 to an do 
   begin
      j:=am;
      while j>PoiskMin(ma,1,am) do // цикл начинаем справа налево до минимального
      begin
         ma[i,j+1]:=ma[i,j]; // сдвигаем каждый элемент вправо на 1
         j:=j-1; // передвигаемся влево
      end;
      ma[i,j+1]:=0; //когда вышли из цикла то остановились на минимальном столбце и ложим 0 в следующую ячейку
   end;
 
vivod(ma,an,am+1);  // выводим массив с учетом что на один столбец у нас больше
end;
 
end.