Разбить процедуру на 3

unit op;
interface
const MaxN=10; maxM=10;
type TMyArray=Array[1..maxN, 1..maxM] of integer;
implementation
end.

unit Sdvig;
interface
uses op;
 
procedure Zapolnenie(v, w: integer; var X :TMyArray);
procedure Vivod (v, w: integer; X :TMyArray);
function search(v, w: integer;var X:TMyArray):integer;
procedure SdvigStr (v, w, r: integer; var X :TMyArray);
procedure InsertStr (w, r: integer; var X :TMyArray);
 
implementation
 
procedure Zapolnenie(v, w: integer; var X :TMyArray);
var i, j    : integer;
begin
        Randomize;
        For i:=1 to v do
        For j:=1 to w do
 X[i, j]:=random(5)+1;
end;
 
procedure Vivod(v, w: integer; X :TMyArray);
var    i, j   : integer;
begin
    For i:=1 to v do
begin
        For j:=1 to w do  write(X[i, j], ' ');
        Writeln;
    end;
end;
 
 
function search(v, w: integer;var X:TMyArray):integer;
var
   krat,ikrat,jkrat,i,j: integer;
begin
krat:=x[1,1];
for i:=1 to v do
if x[i,1]mod 3=0 then
     for j:=1 to w do
    // if X[i,j]=krat then
     begin
          krat:=X[i,j];
          ikrat:=i;
     end;
search:=ikrat;
end;
 
procedure SdvigStr (v, w, r: integer; var X :TMyArray);
var   i, j     : integer;
begin
w:=w+1;
for i:=v+1 downto r+1 do
for j:=1 to v do
          x[i,j]:=x[i-1,j];
 
end;
 
procedure InsertStr (w, r: integer; var X :TMyArray);
var   j     : integer;
begin
    For j:=1 to w do  X[r, j]:=0;
end;
 
end.

uses op,sdvig,crt ;
var       A           : TMyArray;
          n, m,t    : Integer;
begin
Clrscr;
Writeln('введите кол-во строк и столбцов <=10)');
Readln(n, m);
If (n>5) or (m>5) then
begin
    Writeln('неверно!');
    exit;
end;
   Zapolnenie(n+1, m, A);
    Vivod(n, m, A);
    writeln;
    t:=Search(n,m,A);
    SdvigStr(n, m, t, A);
    InsertStr(m, t, A);
    Vivod(n+1, m, A);
    writeln;
    readln;
end.