Объявить какой-либо заранее созданный файл как нетипизированный

[anurid]

ЗАДАНИЕ:
Объявить какой-либо заранее созданный файл как нетипизированный и вывести
все четные учетверенные слова (одно учетверенное слово равно восьми байтам) из
этого файла на экран монитора.

Зарание спасибо) в понедельник надо здавать, а я незнаю как её зделать

[Hacker19_90]

Может так?

var 
    F: File;
    slovo: string;
    i: integer;
begin
     ..................
     i := 0;
    while not(Eof(F)) do
    begin
          Inc(i);
          Readln(F, slovo);
          if ((i mod 2) = 0) then
              if sizeof(slovo) = 8 then
                  Writeln(slovo);
    end;
    ...............
end.

[anurid]

Сообщение от Hacker19_90

Может так?

var 
    F: File;
    slovo: string;
    i: integer;
begin
     ..................
     i := 0;
    while not(Eof(F)) do
    begin
          Inc(i);
          Readln(F, slovo);
          if ((i mod 2) = 0) then
              if sizeof(slovo) = 8 then
                  Writeln(slovo);
    end;
    ...............
end.

 Readln(F, slovo);

пишет ошыбку Invalid file type

[Филантроп]

должно быть

 
var
F: Text;

[anurid]

спасибо большое