Использваоние подпрограмм-функций.

PROGRAM LAB;
CONST
N=3; {количество строк и столбцов}
TYPE
AR=ARRAY[1..N,1..N] OF INTEGER;
VAR
A:AR; {массив А}
I, J: INTEGER; {индексы строк, столбцов} 
FI, FO: TEXT; {файловые переменные}
{функция поиска произведения}
FUNCTION PR(B:AR; M: INTEGER): INTEGER;
VAR
K, L: INTEGER; {индексы строк,столбцов}
P: INTEGER; {произведение}
BEGIN
P:=1; {начальное значение произведения}
FOR K:=1 TO M DO
FOR L:=1 to M DO
P:=P*B[K,L];
PR:=P
END; { PR }
{тело выполняемых операторов главной программы}
BEGIN 
{открытие файла входных данных и чтение их}
ASSIGN(FI, 'lab.inp');
RESET(FI);
FOR I:=1 TO N DO BEGIN
FOR J:=1 TO N DO READ(FI,A[I,J]);
READLN(FI)
END;
CLOSE(FI);
{открытие выходного файла}
ASSIGN (FO,'lab.out');
REWRITE(FO);
WRITELN(FO ,' Исходный массив A:'); 
FOR I:=1 TO N DO BEGIN
FOR J:=1 TO N DO WRITE(FO,A[I,J]:3);
WRITELN(FO)
END;
WRITELN(FO,’ P=‘,PR(A,N):3); {вывод произведения}
CLOSE(FO);
END.

uses crt;
const nmax=100;
type mas=array[1..nmax]of integer;
procedure Vvod(var m:mas;var x:byte;c:char);{создание и ввод массива}
var i:byte;
begin
writeln('Массив ',c);
repeat
write('Размер массива= ');
readln(x);
until x in [1..nmax];
for i:=1 to x do
 begin
  m[i]:=random(20)-9;
  write(m[i],' ');
 end;
writeln;
end;
function Summ(m:mas;x,k:byte):integer;{функция по условию}
var i,j:byte;
    sm:integer;
begin
j:=0;sm:=0;
for i:=1 to x do
 begin
  if m[i]>0 then{}
   beginесли положительное
    j:=j+1;{считаем}
    sm:=sm+m[i];{суммируем}
   end;
  if j=k then{насчитали к}
   begin
    Summ:=sm;{значение функции}
    break;{больше не считаем}
   end;
  end;
if j<k then{в условии не написано, но может быть что положительных меньше к}
 begin
   writeln('В массиве нет ',k,' положительных элементов');
{не очень красиво, но изогнулся так, с процедурой было бы проще}
    Summ:=0;
 end;
end;
var a,b:mas;
    na,nb,k:byte;
begin
clrscr;
randomize;
write('k=');readln(k);
Vvod(a,na,'A');
write('Сумма первых ',k,' положительных элементов= ');
writeln(Summ(a,na,k));
Vvod(b,nb,'B');
write('Сумма первых ',k,' положительных элементов= ');
writeln(Summ(b,nb,k));
readln
end.