Найти ошибку в программе

uses
SysUtils;
const
step=0.1;
a=-2;
b=2;
n=41;
var
x,y,sum1,sum2,sum3:real;
i:integer;
begin
x:=-2;
sum1:=0;
for i:=1 to 41 do
begin
y:=sin(x)/cos(x);
writeln('x=',x:6:2 ,' ', 'y=' ,y:6:2);
sum1:=sum1+y;
x:=x+0.1;
end;
writeln;
writeln('sum1= ',sum1:6:2);
readln;
 
x:=-2;
sum2:=0;
while x<2+0.1 do
begin
y:=sin(x)/cos(x);
writeln('x=' ,x:6:2 ,' ', 'y=',y:6:2);
sum2:=sum2+y;
x:=x+0.1;
end;
writeln;
writeln('sum2=' ,sum2:6:2);
readln;
 
x:=-2;
sum3:=0;
repeat
begin
y:=sin(x)/cos(x);
writeln('x=' ,x:6:2 ,' ', 'y=',y:6:2);
sum3:=sum3+y;
x:=x+0.1;
end;
until x>2+0.1;
writeln;
writeln('sum3=' ,sum3:6:2);
readln;
end.

Program table;
{$F+}
Uses Crt;
type Mathfunk = function(x:real):real;
 
function tan(x:real):real;
begin
  tan:= sin(ln(abs(x)))/cos(ln(abs(x)));
    end; 
procedure cicle1(f:Mathfunk);
 var
  x:real;
  k:integer;
   begin
    x:=-2;
     for k:=1 to 41 do begin
       if x<>0 then writeln(x,'  ',f(x));
         x:=x+0.1;
          end;
            end;  
 
procedure cicle2(f:Mathfunk);
 var
  x:real;
  k:integer;
   begin
    x:=-2;
      while x<=2 do begin
       if x<>0 then writeln(x,'  ',f(x));
        x:=x+0.1;
          end;
           end;
 
procedure cicle3(f:Mathfunk);
 var
  x:real;
  k:integer;
   begin
    x:=-2;
      repeat
       if x<>0 then writeln(x,'  ',f(x));
        x:=x+0.1;
          until x>=2;
           end;
begin
Clrscr;
 cicle1(tan);
  cicle2(tan);
   cicle3(tan);
  readln
 end.