сформировать текстовый файл

[Артл]

Составить программу на языке Pascal, которая выводит в текстовой файл data1.txt в два столбца значения переменной x и функции . (Шаг изменения аргумента следует принять постоянным)
x=cos(x)
помогите пожалуйста,решением или наполовину хотя бы( не знаю как сделать текст. файл и в два столбца)

[rus12]

если я правильно понял

 var
   x,i:integer;
   y:real;
   f:textfile;
 begin
      writeln('vvedite x') ;
     for i  := 1 to 10 do
      begin
         readln(x);
         y:=cos(x);
         writeln(x,'  |  ',y);
         assignfile(f,'i:\data1.txt');//задаем путь к файлу или его имя
         Append(f);//открываем для добавления
         writeln(f,x,'  |  ',y); //добавляем данные
         closefile(f);//закрываем файл
       end;
end.

[MoBLer]

rus12,у ваш пример рабочий но есть парочка небольших замечаний.
Пример будет работать только в delphi и еще зачем 10 раз открывать и закрывать файл ведь можно один раз открыть, записать и закрыть файл))
исходник для паскаля

[Артл]

спасибо за помощь, а что это за вертикальная палочка в текстовом файле?

[rus12]

типа разделение на столбцы