[Graf58]

Всем привет!
Помогите сделать задачу на delphi.

type tek=file of Char;
var t: tek;

описать и проверить работу процедуры del(t), подсчитать количество гласных букв в файле t.

Проблема в том что я никак не могу сохранить данные введённые в memo в файл t. Сохраняется только первый символ.