Написать программу вычисления и вывода таблицы значений разрывной функции

Program Pascal6;     
var x1, x2, h, x,y:real;
i, N: integer;
label 1;
begin
1: writeln('x1, x2, h');
readln(x1, x2, h);
if (x2 < x1) or (h  > x2-x1) then
begin
writeln('Некорректные данные - повторить ввод');
goto 1;
end;
N:=ROUND((x2 - x1)/h)+1;
writeln('I----------I------------I-------------------------------------I');
writeln('I     N    I     X      I                    Y                I');
writeln('I----------I------------I-------------------------------------I');
x:=x1;
for i:=1 to N do
begin
if (x<=0) and (x>=(-1)) then writeln('I', i:6, '    I', x:8:3, '    I                    -                I')
else
begin
if x<-1 then y:=x*x else begin if (x>0)and (x<1) then y:=ln(x*x)-1 else if x>1 then y:=sqrt(x) end;
writeln('I', i:6, '    I', x:8:3, '    I     ' , y:18:3,    '              I'    );
end;
x:=x+h;
end;
writeln('I----------I------------I-------------------------------------I');
end.

for i:=0 to N-1 do
begin
  x:=x1+h*i;
  if (-1<=x) and (x<=0) then
    WriteLn('I', i+1:6, '    I', x:8:3, '    I                    -                I')
  else begin
    if x<-1 then
      y:=x*x
    else if x<1 then
      y:=Ln(x*x)-1
    else if x>1 then
      y:=SqRt(x);
    WriteLn('I', i+1:6, '    I', x:8:3, '    I     ' , y:18:3,    '              I'    );
  end;
end;

  if (x=0) or (Abs(x)=1) then