модули

[nolx]

написать модуль по этой программе

Type
Mas=array[1..20,1..20]of integer;
Var
a:Mas;
i,j,SumPologit,SumOtric,N,M:integer ;
procedure pr(Var b:Mas; Var p,r:integer; m,n:byte);
var
i,j: integer;
begin
p:=0;
r:=0;
For i:=1 to m do
Begin
for j:=1 to n do
if b[i,j]>0 then p:=p+b[i,j]
Else
if b[i,j]<0 then r:=r+b[i,j];
end;
end;
Function KolPologit(i,KolStolb:Byte):Byte;
Var
j,Kol:Byte;
Begin
Kol:=0;
For j:=1 to KolStolb do
If (A[i,j] > 0 )then Inc(Kol);
KolPologit:=Kol
end;
begin
write('N M ? ');
readln(n,m);
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(199)-99;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln
end;
Pr(A,SumPologit,SumOtric,n,m);
Writeln('sum positiv: ',SumPologit,' sum negativ: ',SumOtric);
Writeln;
For i:=1 to M do
Begin
If (i mod 2 = 0) then Writeln('Kol Pologit v ',i,' stroke = ',KolPoloGit(I,N))
End;

[rubius2008]

создаешь файл допустим modul.pas в него пишешь

unit modul;{имя модуля должно совпадать с именем файла}
               interface
{Указываешь заголовки подпрограмм, которые д.б. доступны из модуля, + еще необходимые типы}
Type
Mas=array[1..20,1..20]of integer;
procedure pr(Var b:Mas; Var p,r:integer; m,n:byte);
           implementation
{тут реализация подпрограмм}
procedure pr(Var b:Mas; Var p,r:integer; m,n:byte);
var
i,j: integer;
begin
p:=0;
r:=0;
For i:=1 to m do
Begin
for j:=1 to n do
if b[i,j]>0 then p:=p+b[i,j]
Else
if b[i,j]<0 then r:=r+b[i,j];
end;
end;

end. {конец модуля}

нажимаем сохранить, откомпилировать. Должен создаться файл с расширением .tpu.
Далее из старой программы все удаляешь, что в модуль перенес.
И в старой программе в 1 строке пишешь

uses modul;

Да, желательно, чтоб файл модуля находился в рабочей директории, иначе придется пути прописывать в настройках Паскаля.