Ошибка "ожидался тип" - PascalABC.NET

Формулировка задачи:

4 строка ошибка "ожидался тип" что не так?

function poisk(slovo,adres:string):string;
 var sravnislovo:string;
     simvol:char;
     fail:text;
 begin
  assign(fail,adres);
  reset(fail);
  repeat
  sravnislovo:='';
  repeat
   read(fail,simvol);
   if simvol<>'#' then sravnislovo:=sravnislovo+simvol;
  until simvol='#';
  if sravnislovo=slovo then readln(fail,result)
  else 
   begin 
    result:='Слово не найдено.'; 
    readln(fail); 
   end;
  until (eof(fail)) or (sravnislovo=slovo);
  close(fail);
 end;

Решение задачи: «Ошибка "ожидался тип"»

Листинг программы

function poisk(slovo,adres:string):string;
 var sravnislovo:string;
     simvol:char;
     fail:PABCSystem.text; // <---

Объяснение кода листинга программы

Объявлена функция poisk с двумя параметрами slovo и adres типа string.
Внутри функции объявлена переменная sravnislovo типа string.
Также внутри функции объявлена переменная simvol типа char.
В функции используется необъявленная переменная fail типа PABCSystem.text. // <---
Функция poisk возвращает значение типа string.