Работа с текстовым файлом

[Smartbass]

Доброго времени суток!
Имеется такая вот программа:

Program ControlWork2;
Uses crt;
Const
R=2.9; {soprotivlenie}
I=4.3; {sila toka}
U=220; {napryazhenie}
w=157; {chastota}
J=0.04; {moment inercii}
Var
t,K,Md,Mc,n:real;
Function D(K:real):real; {moment dvizheniya}
Begin
K:=(U-I*R)/w;
Md:=K*U/R-K*w/R;
End;
Function S(w:real):real; {moment staticheskij}
Begin
Mc:=w*J;
End;
begin
t:=J*W/(D(K)-S(w));
writeln (t:6:4, '|', W:8, '|', D(K):8:4, '|', S(w):8:4);
End.

Нужно вывести исходные данные в текстовый файл. Помогите, пожалуйста, очень надо. Заранее всем огромное спасибо!

[__STDC__]

в чем проблема?
assign(file,filename) -> rewrite(file) -> цикл -> writeln(file,variable) -> конец цикла -> close(file)
ну точнее я не знаю, что там надо в файл? может цикл и не нужен..

[koma_grusha]

var f: File - объявление файловой переменной
Assign(f, filename) - связь с файлом, скоторым будет вестись работа, filename - строковая переменная, имя файла
reset(f) - открываешь файл для чтения (файл должен быть)
rewrite(f) - создание файла
write(f, <переменная 1>, <переменная 2>, ...) - запись в файл, переменных может быть сколько хочешь, запишутся подряд, если хочешь на новой строке, то writeln, если хочешь с пробелами, добавишь их между переменными ну и т.п
read(f, <переменная 1>, <переменная 2>, ...) - чтение с файла, запоминает в указанные переменные
close(f) - закрытие файла

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

var f: File;
begin
    assign(f, <имя файла>);
    rewrite(f);
    write(f, <пер 1>, <пер 2>, ...);
    close(f);
end;

[Smartbass]

Огромное спасибо! Выручили. Буду разбираться.