[code]
var
f : TextFile;
...
begin
...
AssignFile(f, 'c:\Program files\результат.txt');
Rewrite(f);
//Здеся записываем данные
...
CloseFile(f);
[code]

Записывать данные нужно с помощью
Write(f, ...); или WriteLn(f, ...); где многоточия - параметры (переменные, строки, числа, блаблабла)
Write - записывает данные в файл, WriteLn делает тоже самое, только еще в конце записываемых данных добавляет символ переноса.