[Pascal] Создать текстовый файл

[Катуха]

Помогите!!! Очень нужно дописать программу в текстовый файл. Вот условие:
"Даны вещественные числа А, В и целое число N. создать текстовый файл, содержащий таблицу значений функции
f(x)=[sin(x)] на промежутке [A, B] с шагом (B - A) / N. Таблица состоит из двух столбцов: с аргументами x (10 позиций, из них 3 под дробную часть) и со значениями f(x) (15 позиций, из них 8 под дробную часть). Столбцы выравниваются по правому краю и разделяются 10 пробелами."

Сама программа есть,осталось только в текстовый файл переделать.

f,x,A,B:real;
N:integer;
Begin
read (A,B,N)
h:=(B-A)/N;
x:=A;
while x
begin
f:=sin (x);
writeln (x:10:3, (10 пробелов), f:15:8);
x:=x+h;
end;
end.

[Sazary]

Катуха

Сама программа есть

В вашем коде куча ошибок. Видно, что вы его даже не проверяли.

Вот, вроде работает:

uses crt;
var
fout : text;
f,x,A,B,h:real;
N:integer;
Begin
clrscr;
assign(fout,'fileout.txt');
rewrite(fout);
read (A,B,N);
h:=(B-A)/N;
x:=A;
while x<=B do
begin
f:=sin (x);
writeln (x:10:3,'         ' , f:15:8);
writeln (fout,x:10:3,'         ' , f:15:8);
x:=x+h;
end;
close(fout);
readln;
end.