Таблица значений и функций....

[_°PROTOS°_]

Доброго всем времени суток, имеется задачка которую нада
решить через цикл..... нужна ваша помощь

Условие задачи:

Напечатать таблицу значений функций sin x и cos x на отрезке [0,1] с шагом 0.1 в следующем виде ( считать что при печати на каждое вещественное число отводится по 6 позиций строки):

_x______sin(x)_____cos(x)___
0.0000 0.0000 1.0000
0.1000 0.0998 0.9950
............................
1.0000 0.8415 0.5403

Заранее благодарен

[__STDC__]

uses
   CRT;
var
   x:real;
begin
   clrscr;
   x:=0;
   writeln('X':6,'|':4,'COS(X)':9,'|':4,'SIN(X)':9); writeln;
   while (x <= 1) do begin
      writeln(x:0:4,'   |   ',sin(x):0:4,'   |   ',cos(x):0:4);
      x := x+0.1;
   end;
   readkey;
end.

[_°PROTOS°_]

Огромное пасибо