Ошибки в программе на Pascal

CONST Pi=3.14159265;
VAR N,P,Z,S:REAL;
I:integer;
FUNCTION F(X:REAL):REAL; (* ПОДЫНТЕГРАЛЬНАЯ ФУНКЦИЯ *)
BEGIN
F:=COS(P*X-Z*SIN(X))
END;
FUNCTION RAN(VAR I,J:INTEGER):REAL;FORTAN;(* ДАТЧИК *)
FUNCTION SIGN(VAR X,Y:REAL):REAL;FORTAN(*ЗНАКОВАЯ ФУНКЦИЯ*)
PROCEDURE MK(K:INTEGER; N,A,B:REAL;FUNCTION F:REAL; VAR S:REAL);
VAR H,R,Y,U:REAL; I,J:INTEGER; (* МЕТОД МОНТЕ-КАРЛО *)
BEGIN
H:=B-A;
S:=0.0;
R:=1;
U:=l;
I:=0;
J:=0;
U:=1.0;
IF K=1 THEN (* ВАРИАНТ 1 *)
REPEAT S:=S+F(A+RAN(I,J)*H);
R:=R+1.0
UNTIL R>N
ELSE (* ВАРИАНТ 2 *)
REPEAT Y:=F(A+RAN(I,J)*H);
IF RAN(I,J)N;
S:=H*S/N
END;
BEGIN
WRITE('BAPИAHT?');
READLN(I);
WRITE('N,P,Z?');
READLN(N,P,Z);
MK(I,N,0,РI,F,S);
WRITELN('S=',S/PI);
END.

program Project1;
 
type
  Tfunc = function (x,p,z: real): real;
 
 
function F(x,p,z: real): real; { Подынтегральная функция }
begin
  F:= cos(p*x-z*sin(x));
end;
 
 
function Ran(var i,j: integer): real; {Датчик}
begin
  {Сюда написать требуемый код}
end;
 
 
function Sign(var x,y: real): real;  {Знаковая функция}
begin
  {Сюда написать требуемый код}
end;
 
 
procedure MK(k: integer; n,a,b,p,z: real; F: Tfunc; var s: real);
var
  h,r,y,u: real;
  i,j: integer; {Метод Монте-Карло}
begin
  h:= b-a;
  s:= 0.0;
  r:= 1;
  i:= 0;
  j:= 0;
  u:= 1.0;
  if k = 1 then { Вариант 1 }
    repeat
      s:= s+f(a+Ran(i,j)*h,p,z);
      r:= r+1.0
    until r > n
  else { ВАРИАНТ 2 }
    repeat
      y:= F(a+Ran(i,j)*h,p,z);
      if Ran(i,j) < abs(y) then
        s:= s+ Sign(u,y);
      r:= r+ 1.0;
    until r > n;
  s:= h*s/n;
end;
 
{Основная программа}
var
  n,p,z,s: real;
  i: integer;
begin
  repeat
    Write('Вариант?');
    Readln(i);
    Write('N,P,Z?');
    Readln(n,p,z);
    MK(i,n,0,p,p,z,F,s);
    Writeln('S = ',s/Pi);
  until false;
  readln;
end.