проблема с подпрограммами на паскале

[AndrewPl]

Подскажите если в подпрограммах где-то ошибки ,пожалуйста!
Программа незавершена:

program gdfg;
uses crt;
type mas=array[1..10] of real;
var х1p,х1k,dx1,х2p,х2k,dx2,tp,tk,dt,n: real;
{функция возмущения}
function zb(a:real):real;
begin
zb:=sqr(0.273*sin(3)/cos(3)*(a+1)/a);
end;
{передаточная функция}
function Y(a,b,zb(c):real):real;
begin
Y:=exp(4*ln(a))-0.9*b+zb(c)+2*a+ exp(6*ln(a))*b/3;
end;
{подпрограмма формирования элементов массива Form(xп,xк,k,xn(k)) }
procedure form(xn(k):mas;xp,xk):real;
k,i:integer;
x:=xp;
dx:=(xk-xp)/(k-1);
for i:=1 to 10 do
begin
xn(i):=x;
x:=x+dx;
end;
{Подпрограмма формирования двумерного массива YY(x1(n),x2(n),Z(i),Y(n,n))}
procedure FF(x1(n),x2(n) ,z(i),y(n,n):real);
for l:=1 to n do
begin
for j:=1 to n do
{Обращение к функции пользователя Y}
F(l,j):=Y(x1(l),X2(J),Z(i));
end;
{Модуль1:определение минимального элемента массива F(n,n)}
minF[i]:=F[1,1];
mini:=1;
minj:=1;
for l:=1 to n do
begin
for j:=1 to n do
if F[l,j]<min then
begin
minF[i]:=F[l,j];mini:=l;minj:=j;
end;
end;

{ПРОГРАММА}
begin
clrscr;
{формирование массивов х1 и х2}
form(x1,x1p,x1k);
form(x2,x2p,x2k);
form(t,tp,tk);
{вычесление n для цикла по времени}
n:=(tk-tp)/dt+1 ;
t:=tp;
{цикл по времени }
for i:=1 to n do
{обращение к подпрограмме-функции zb(t)}
zb(i):=zb(t) ;
{Блок формирования массива F(10,10)}
F(l,j):=Y(x1(l),X2(J),Z(i));
{обращение к подпрограмме определения
максимума двумерного массива F(10,10)
и соответствующих значений аргументов x1 и x2}

зарание благодарен)