Найти ошибку в коде. - Pascal ABC

program error;
uses
  math;
var
  a,x,i,i1,i2:Integer;
  y:real;
 
function tg(x:real):real;
begin
  tg:=sin(x)/cos(x);
end;
 
function ctg(x:real):real;
begin
  ctg:=cos(x)/sin(x);
end;
 
begin
  Writeln('Enter A');
  Readln(a);
  Writeln('Enter X');
  Readln(x);
  Writeln('Начальное значение =');
  Readln(i1);
  Writeln('Конечное значение =');
  Readln(i2);
  for i:=i1 to i2 do
    begin
      If (tg(a+x)<=1) then
        y:=power((pi+x),a);
      If ((tg(a+x)<=2) and (tg(a+x)>1)) then
        y:=ctg(a*x);
      If tg(a+x)>2 then
        y:=ln(abs(a+x));
    end;
  Writeln ('Y =',y);
  readln;
end.