Съезжание текста при выводе таблицы значений трех функций

program laboratorna2;
 
const
  a = 0;
  b = 2 * pi;
  n = 7;
 
var
  h, x: real;
  i: integer;
 
function f1(y: real): real;
begin
  f1 := sqr(sin(y)) * sin(y);
end;
 
function f2(z: real): real;
begin
  f2 := 2 - cos(z);
end;
 
function f3(g: real): real;
begin
  f3 := sqr(sqr(g)) * (1 + sqr(sin(g)));
end;
 
begin
  
  write('Znachennia X', ' ':9);
  write('sin^3(x)');
  write(' ':8, '2-cos(x)');
  write(' ':8, 'x^4*(1+sin^2(x))');
  writeln;
  h := (b - a) / n;
  
  for i := 0 to n do
  begin
    x := a + i * h;
    writeln;
    write(x:1:5, ' ':9);
    write(' ':5, f1(x):1:5);
    write(' ':9, f2(x):1:5);
    writeln(' ':10, f3(x):1:5);
  end;
  
  readln;
end.

program laboratorna2;
 
uses crt;
 
const
  a = 0;
  b = 2 * pi;
  n = 7;
 
var
  h, x: real;
  i: integer;
 
function f1(y: real): real;
begin
  f1 := sqr(sin(y)) * sin(y);
end;
 
function f2(z: real): real;
begin
  f2 := 2 - cos(z);
end;
 
function f3(g: real): real;
begin
  f3 := sqr(sqr(g)) * (1 + sqr(sin(g)));
end;
 
begin
clrscr;
writeln('------------------------------------------------');
writeln('|  x  | sin^3(x) | 2-cos(x) | x^4*(1+sin^2(x)) |');
writeln('------------------------------------------------');
h := (b - a) / n;
for i := 0 to n do
 begin
  x := a+i*h;
  writeln('|',x:4:1,' |',f1(x):9:5,' |',f2(x):9:5,' |',f3(x):17:5,' |');
 end;
writeln('------------------------------------------------');
readln
end.