Модули. Матрица. Есть ли в матрице столбец только с положительными элементами

unit pp;
interface
uses crt;
const n=5 ;
const m=6;
type matr=array [1..n,1..m] of integer;
 function pp1(a:matr):integer;
 function pp2(a:matr):integer;
 procedure pp3(A:matr);
 implementation
 
 function pp1
var
  p,b,i,j:integer;
 
begin
b:=0;
j:=1;
while (j<=m)and(b<>1) do
begin
p:=0;
for i:=1 to n do
begin
if a[i,j]>0 then
p:=p+1;
end;
if p=n then
b:=1;
j:=j+1;
end;
pp1:=b;
end;
 
function pp2;
var
 
  max,nom,i,j,kol:integer;
begin
max:=0;
for i:=1 to n do
begin
kol:=0;
for j:=1 to m  do
begin
if a[i,j]<0 then
kol:=kol+1;
end;
if max<kol then begin
max:=kol;
nom:=i;
 end;
end;
write('nomer stroki s max kol otrizatelnyh elementob',nom);
pp2:=nom;
readln;
end;
 
 
procedure pp3;
var
  q,i,j:integer;
begin
for i:=1 to 2 do
begin
for j:=1 to m do
begin
q:=a[i,j];
a[i,j]:=a[i+3,j];
a[i+3,j]:=q;
end;
end;
writeln ('izmenennay matriza A');
for i:=1 to n do
begin
for j:=1 to m do
write (A[i,j]:6);
writeln;
end;
readln;
end;
end.
 
program p433;
uses crt,pp;
const n=5 ;
const m=6;
type matr=array [1..n,1..m] of integer;
var
   A:matr;
  b,i,nom,j:integer;
begin
clrscr;
writeln('vvedite matrizy A(5,6)');
for i:=1 to n do
begin
writeln ('vvedite ',i,'stroku');
for j:=1 to m do
 
readln (A[i,j]);
end;
writeln ('poluchena matriza A(5,6)');
for i:=1 to n do begin
for j:=1 to m do
 
write (A[i,j]:3);
writeln;
end;
begin
 function pp1;
begin
if b=1 then
 function pp2 ;
else
 procedure pp3;
end;
end;
end.

unit pp;
interface
uses crt;
const n=5;
      m=6;
type matr=array [1..n,1..m] of integer;
function pp1(a:matr):integer;
procedure pp2(a:matr);//лучше процедурой
procedure pp3(var a:matr);
implementation
function pp1;
var
  p,b,i,j:integer;
begin
j:=1;b:=0;
while (j<=m)and(b<>1) do
 begin
  p:=0;
  for i:=1 to n do
   begin
    if a[i,j]>0 then
    p:=p+1;
   end;
  if p=n then b:=1;
  j:=j+1;
 end;
pp1:=b;
end;
 
procedure pp2;
var  max,nom,i,j,kol:integer;
begin
max:=0;nom:=0;
for i:=1 to n do
 begin
  kol:=0;
  for j:=1 to m  do
   begin
    if a[i,j]<0 then
    kol:=kol+1;
   end;
  if max<kol then
   begin
    max:=kol;
    nom:=i;
   end;
end;
if nom=0 then writeln('V matrice net otricatelnyh elementov!')
else writeln('nomer stroki s max kol otrizatelnyh elementob=',nom);
readln;
end;
 
procedure pp3;
var
  q,i,j:integer;
begin
for i:=1 to 2 do
for j:=1 to m do
 begin
  q:=a[i,j];
  a[i,j]:=a[i+3,j];
  a[i+3,j]:=q;
 end;
writeln ('izmenennay matriza A');
for i:=1 to n do
 begin
  for j:=1 to m do
  write (A[i,j]:6);
  writeln;
 end;
readln;
end;
end.

program p433;
uses crt,pp;
var A:matr;
    i,j:integer;
begin
clrscr;
writeln('Ishodnaya matrica:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(10)-8;
    write (A[i,j]:4);
   end;
  writeln;
 end;
if pp1(a)=1 then
 begin
  writeln('V matrice est stolbec tolko s polozitelnymi elementani!');
  pp2(a);
 end
else
 begin
  writeln('V matrice net stolbca tolko s polozitelnymi elementani!');
  pp3(a);
 end;
end.

unit pp;
interface
uses crt;
const n=5;
      m=6;
type matr=array [1..n,1..m] of integer;
function pp1(a:matr):integer;
procedure pp2(a:matr);
procedure pp3(var a:matr);
implementation
function pp1; {ожидался идентефикатор}
....

function pp1(a:matr):integer;
.........................
 function pp2(a:matr):integer;
...............................
 procedure pp3(A:matr);
........................