табуляция в операторе for

[spone379]

в общем написал программу. Её нужно протабулировать при х€[-2;2].но в операторе for. я не знаю как.помогите пожалуйста

program 379;
uses crt;
var x,b,y:real;
begin
clrscr;
writeln('введите значение х');
write('x=');readln(x);
writeln('введите значение b');
write('b=');readln(b);
if x<0 then begin
y:=3*sqr(x)-x+b;
writeln('x=' , x:6:2, 'b=' , b:6:2, 'y=', y:10:4);
end;
if x=0 then writeln('y не задан');
if (x>0) and (x<1) then
if (sqr(x)*x-b)+ln(x+b);
writeln('x=' , x:6:2, 'b=' , b:6:2, 'y не определен');
if x=1 then writeln('y не задан');
if x>1 then begin
y:=exp(x)+sin(b)*sin(b);
writeln('x=' , x:6:2, 'b=' , b:6:2, 'y=', y:6:2);
end;
readln;
end.

[Stilet]

Разве что так:

program 379;
uses crt;
var x,b,y:real;i:integer;
begin
clrscr;
writeln('введите значение b');write('b=');readln(b);
x:=-2;
for i:=1 to 20 do begin 
 if x<0 then begin y:=3*sqr(x)-x+b;
  writeln('x=' , x:6:2, 'b=' , b:6:2, 'y=', y:10:4);
 end else if x=0 then writeln('y не задан');
 if (x>0) and (x<1) and (sqr(x)*x-b)+ln(x+b) then
  writeln('x=' , x:6:2, 'b=' , b:6:2, 'y не определен') else
 if x=1 then writeln('y не задан') else
 if x>1 then begin
  y:=exp(x)+sin(b)*sin(b);
  writeln('x=' , x:6:2, 'b=' , b:6:2, 'y=', y:6:2);
 end;
 x:=(4.0 / 20)+x;
end;

readln;
end.

Не проверял.