Функциональный тип.

uses crt;
type
mass=array[1..20] of integer;{тип массива-строка матрицы}
matr=array[1..20] of mass;{тип матрицы-массив строк}
F=function(c:mass;n:byte):byte;{тип функции для подсчета пол. и отр.}
FF=function(k:real):real;{тип функции для определеня болше пол. чем отр.}
var mt:matr;
    m,n:byte;
{$F+}{раздел описания функций}
function Pol(c:mass;n:byte):byte; {подсчет положительных}
var k,i:byte;
begin
k:=0;
for i:=1 to n do
if c[i]>0 then k:=k+1;
Pol:=k;
end;
function Otr(c:mass;n:byte):byte;{подсчет отрицательных}
var k,i:byte;
begin
k:=0;
for i:=1 to n do
if c[i]<0 then k:=k+1;
Otr:=k;
end;
function Log(k:real):real; {определение знака логарифма отношения кол. пол. к кол. отр.}
begin
if k<>0 then{если пол. нет, к=0, логар. ноля не определен}
Log:=ln(k);
end;
{$F-}
procedure Kol_P_O(c:mass;n:byte;Fp,Fo:F;var kp,ko:byte);{процедура подсчета пол. и отр. в строке матрицы}
begin
kp:=Fp(c,n);
ko:=Fo(c,n);
end;
function KolPol(mt:matr;m,n:byte;Fk:FF):byte;{функция подсчета кол. строк, где пол. больше}
var i,kp,ko,kol:byte;
begin
kol:=0;
for i:=1 to m do{перебираем строки матрицы}
 begin
  Kol_P_O(mt[i],n,Pol,Otr,kp,ko);{считаем пол. и отр.}
  if(ko=0)and(kp>0)then  kol:=kol+1{если отр. нет, а пол. есть(на ноль делить нельзя)}
   else if (ko>0)and(kp>0)and(Fk(kp/ko)>0) then kol:=kol+1;{если есть и те и другие}
 end;
KolPol:=kol;{значение функции}
end;
 
var i,j:byte;
begin
clrscr;
randomize;
write('Количество строк m=');
readln(m);
write('Количество стoлбцов n=');
readln(n);
writeln('Массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    mt[i,j]:=random(10)-4;
    write(mt[i,j]:4);
   end;
  writeln;
 end;
write('Положительных больше чем отрицательных в ',KolPol(mt,m,n,Log),' стр.');{вызываем функцию(результат)}
readln
end.