Ошибка invalid procedure or function reference - Turbo Pascal - Ответ 3013558

program z_10;
uses crt;
 
procedure z10_1; 
const k=20;
type mas=array[1..k] of integer;
 
 
procedure massiv_1(var a:mas;c:char);
var i:byte;
begin
writeln('Massiv ',c);
for i:=1 to k do
 begin
  a[i]:=-50+random(100);
  write(a[i]:4);
 end;
writeln;
end;
 
procedure massiv_2(a:mas; var b,c:mas;var m,n:byte);
var i:byte;
begin
m:=0;
n:=0;
for i:=1 to k do
if a[i]>0 then
begin
m:=m+1;
b[m]:=a[i];
end
else if a[i]<0 then
begin
n:=n+1;
c[n]:=a[i];
end;
if m=0 then writeln('Poligitelnyi elementov net')
else
begin
writeln('Massiv pologitelnix elementov');
for i:=1 to m do
write(b[i]:4);
writeln;
end;
if n=0 then writeln('Otrizatelnyu elementov net')
else
begin
writeln('Massiv otricatelnix elementov');
for i:=1 to n do
write(c[i]:4);
end;
end;
var x,y,z:mas;
    m,n:byte;
begin
clrscr;
randomize;
massiv_1(x,'X');
massiv_2(x,y,z,m,n);
readln;
end;
 
 
procedure z10_2;
const nmax=10; {maximalnyi razmer matric}
type mtr=array[1..nmax,1..nmax] of integer;{tip matric}
 
procedure Razmer(var m,n,k:integer);{procedura vvoda razmerov}
begin
repeat
write('Kol. strok 1 matrizi=');
readln(m);
until m in [1..nmax];
repeat
write('Kol. stolbzov 1 matrizi=');
readln(n);
until n in [1..nmax];
repeat
write('Kol. stolbzov 2 matrizi=');
readln(k);
until k in [1..nmax];
end;
 
procedure Vvod(var a:mtr;var x,y:integer;c:char);{procedura vvoda isxodnix matric}
var i,j:integer;
begin
writeln('Matrica ',c);
for i:=1 to x do
begin
for j:=1 to y do
begin
a[i,j]:=random(5)+1;
write(a[i,j]:4);
end;
writeln;
end;
end;
 
procedure Umn(a,b:mtr;m,n,k:integer;var c:mtr); {procedura ymnogeniaя}
var i,j,p:integer;
begin
for p:=1 to m do
for j:=1 to k do
begin
c[p,j]:=0;
for i:=1 to n do
c[p,j]:=c[p,j]+a[p,i]*b[i,j];
end;
writeln('Matrica C=A*B');
for i:=1 to m do
begin
for j:=1 to k do
write(c[i,j]:4);
writeln;
end;
end;
var a,b,c:mtr;
n,m,k:integer;
begin
clrscr;
Razmer(m,n,k);
Vvod(a,m,n,'A');
Vvod(b,n,k,'B');
Umn(a,b,m,n,k,c);
readln
end;
 
procedure z10_3;
const nmax=10;
type mtr=array[1..nmax,1..nmax] of real;
{luche vechestvennoe,proizvedenie moget bit bolshim}
 
procedure Vvod(var a:mtr;var n:integer);
var i,j:integer;
begin
repeat
write('Razmer matrizi=');
readln(n);
until n in [1..nmax];
writeln('Matrica');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=-5+10*random;
write(a[i,j]:6:2);
end;
writeln;
end;
end;
 
function Prz(a:mtr;n:integer):real;{moget poluchitcy bolshe Longint}
var i,j:integer;
    p:real;
begin
p:=1;
for i:=2 to n do
for j:=1 to i-1 do
p:=p*a[i,j];
Prz:=p;
end;
var a:mtr;
    n:integer;
begin
clrscr;
randomize;
Vvod(a,n);
write('P=',Prz(a,n):0:2);{vivedem kak celoe}
readln
end;
 
procedure z10_4;
type func=function(x:real;n,k:integer):real;
 
{$F+}
function Summa(x:real;n,k:integer):real;
var i:integer;
s,t,q:real;
begin
s:=0;
t:=1;
if k=2 then q:=x else q:=x*x;
for i:=1 to n do
begin
t:=t*q;
s:=s+t/(k*i);
end;
Summa:=s;
end;
{$F-}
 
procedure Tab(f:func;xn,xk,h:real);
var x,z:real;
begin
x:=xn;
while x<=xk do
begin
z:=x*f(x,8,2)/2+(x*x+1)*f(x,6,4)/3;
writeln('x=',x:4:1,'  z=',z:9:2);
x:=x+h;
end;
end;
begin
clrscr;
Tab (Summa,-2,3.5,0.5);
end;
 
begin clrscr;
z10_1;
z10_2;
z10_3;
z10_4;
end.