Подпрограммы для работы с файлами через файловые переменные
procedure Assign(f: FileType; name: string);