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

[Д@ш@]

Дан двумерный массив. Вставьте первый столбец после всех столбцов, в которых есть отрицательные элементы.

Модуль 1

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

Модуль 2

unit module;

interface

uses op;

procedure Zapolnenie (v, w: integer; var X :TMyArray);
procedure Vivod (v, w: integer; X :TMyArray);
procedure vstavka (v, w:integer; var X:TMyArray);

implementation

procedure Zapolnenie (v, w: integer; var X :TMyArray);
var    i, j    : integer;
begin
        for i:=1 to v do
        For j:=1 to w do
 X[i, j]:=random(20)-10;
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]:3);
	Writeln;
	end;
end;
procedure vstavka (v, w:integer; var X:TMyArray);
var i, j, k, t, ot, l :integer;
begin
k:=v;
j:=1;
while j<=k do
 begin
  ot:=0;
  for i:=1 to v do
  if X[i,j]<0 then ot:=1;
  if ot=1 then
  begin
    for l:=1 to v do
     begin
      for t:=k+1 downto j+2 do
      X[l,t]:=X[l,t-1];
      X[l,j+1]:=X[l,1];
     end;
    k:=k+1;
    j:=j+2;
   end
  else j:=j+1;
 end;
for i:=1 to v do
 begin
  for j:=1 to k do
  write(X[i,j]:3);
  writeln;
 end;
readln
end;
end.

Модуль 3

uses op, module,crt;
var     A       : TMyArray;
        n, m    :Integer;
begin
Clrscr;
Writeln ('vvedite chislo strok <100 i chislo stolbcov <=80');
Readln (n,m);
if (n>=100) or (n>80) then
        writeln ('nepraviln vvod dannuh')
        Else begin
Writeln;
end;
Zapolnenie (n, m, A);
Vivod (n, m, A);
writeln ('Vstavka pervogo stolbca:');
vstavka (n, m, A);
writeln;
end.

Помогите пожалуйста в модуле описания (Модуль 2) разделить procedure vstavka на три процедуры: процедура поиска отрицательных элементов, проц. сдвига, проц. вставки первого столбца.

Заранее спасибо.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.