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

[anurid]

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

program lab10;
uses crt;
var
F: Text;
slovo: string;
i: integer;
begin
clrscr;
Assign(F,'E:\Name.txt');
reset(F);
while not(Eof(F)) do
begin
Readln(F, slovo);
if (sizeof(slovo)mod 2 = 0) then begin
if sizeof(slovo)=8 then writeln(slovo)
else writeln('Ne ravno 8b');
end;
end;
readln;
end.

вводил всякие слова но програма пришет что слово не равно 8 byte
Зарание спасибо)

[Stilet]

sizeof замени на Length
Да кстати учти что такой финт в твоем коде сработает только если в строке будет одно единственное слово, ибо Readln читает сразу всю строку.

[Grag]

Не занимайся ерундой, а изучи типы данных и работу с файлами (особенно нетипизированными). Слово - это данные типа Word, который занимает 2 байта... Причем тут файлы типа Text?

[anurid]

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

Причем тут файлы типа Text?

приподаватель так объяснил)