Вычислить элементы массива по заданному выражению, используя заданную функцию

program z6;
 {$N+}
 Uses crt;
 const n=3;
 Function f1 (x,a:real):real;
 begin
  f1:=ln(x-a)/sqr(x)+a*x+(sqr(a));
 end;
 Function f2 (x,a:real):real;
 begin
  f2:=a*x+a*(sqr(x));
 end;
 Var z,x,y:array[1..n] of real;
     i:integer;
     t1,t2,t3,t4,t5,t:real;
 begin
 Clrscr;
 writeln('Ââåäèòå ýëåìåíòû ìàññèâà X îò -10 äî 10, íå ðàâíûå 0:');
 for i:=1 to n do
 repeat
  write('x[',i,']=');
  readln(x[i]);
 until(x[i]>=-10)and(x[i]<=10)and(x[i]<>0);
 clrscr;
 writeln('Ââåäèòå ýëåìåíòû ìàññèâà Y îò -25 äî 35, íå ðàâíûå 0:');
 for i:=1 to n do
 repeat
  write('y[',i,']=');
  readln(y[i]);
 until(y[i]>=-25)and(y[i]<=35)and(y[i]<>0);
 clrscr;
 writeln('Ìàññèâ Õ:');
 for i:=1 to n do
 writeln(x[i]:0:2);
 writeln('Ìàñcèâ Y:');
 for i:=1 to n do
 writeln(y[i]:0:2);
 writeln('Ìàññèâ Z:');
 for i:=1 to n do
  begin
   t1:=sqr(f(x[i],y[i]));
   t2:=f(x[i]*sin(y[i]),y[i]*cos(x[i]));
   t3:=f(x[i]+y[i],x[i]*y[i]);
   t:=f(y[i],4.15);
   if t=0 then t4:=0
   else if t>0 then t4:=Exp(x[i]*Ln(t))
   else t4:=-Exp(x[i]*Ln(-t));
   z[i]:=t1-t2/t3+t4;
   writeln(z[i]:0:2,' ');
  end;
 readln
end.