Erase не работает

[CoverStory]

Всем доброго!!!

Взял с мнуала кусок проги для удаления файла:

Program Example20;
{ Программа демонстрирует работу Erase. }
Var F : Text;
begin
{ Создаем файл со строкой внутри}
Assign (F,'test.txt');
Rewrite (F);
Writeln (F,'Попробуйте найти это потом !');
close (f);
{ Теперь удалаяем файл }
Erase (f);
end.

Да вот беда выходит ошибка Error in type definition
Я понимаю что такого типа данных как text не существует, но может его можно как-то определить или заменить чем-то другим. Но в описаниях ничего не нашел.

[CoverStory]

В догон!
если ставлю вместо типа Text тип string,
на процедуре Assign выходит сообщение "Wrong number of parameter specified"

[mif]

Program test;
Var
str:string;
f:text;
begin
Assign(f,'test');
ReWrite(f);
Writeln(f,'TEST!!!!!!!');
Close(f);
REadln;
Assign(f,'test');
Erase(f);
end.

[CoverStory]

Версия моего Лазаря 0.9.10 вроде стабл.
На тип данных техт пишет "Error in type definition", можь модуль какой-нить добавить. Хотя erase и assign оба относятся к модулю System.

[mif]

f:textfile;
begin
AssignFile(f,'test');
ReWrite(f);
Writeln(f,'TEST!!!!!!!');
CloseFile(f);
AssignFile(f,'test');
Erase(f);

[CoverStory]

Теперь на процедуре Assign выходит сообщение "Wrong number of parameter specified"

[mif]

процедура:AssignFile.....

[Илья Аввакумов]

если ставлю вместо типа Text тип string,
на процедуре Assign выходит сообщение "Wrong number of parameter specified"

не надо вместо Text ставить String. Рекомендую TextFile

[CoverStory]

Ок, спасибо все заработало!!!!