procedure FCreate;
Var f : TextFile; //класс текстового файла
begin
 AssignFile(f,'privet.txt'); //регистрация файла
 Rewrite(f); //создание файла, если он там есть, то перезаписываеться (старый удаляеться, новый пустой появляеться)
 CloseFile(f); //закрываем файл
end;