Найти ошибку, в файле. Паскаль.

[Veleri92]

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

[Serge_Bliznykov]

1)
sizeof(переменная) возвращает размер переменной, который она занимает в памяти.
если переменная var s : string;
то sizeof(s) будет равен 256 (для переменной s в памяти компьютера компилятор TurboPascal выделил ровно 256 байт.

2) текст программы надо скопировать и вставить в сообщение. Не забыв отформатировать его с помощью тега [СODE] - кнопочка с решёточкой ( # )
по вашей картинке код программы набирать — себя не уважать.. проще уж с нуля написать!

3) смысл Вашей задачи, мне лично, например, абсолютно непонятен.. Какие удвоенные слова, почему они нечётные, какого типа должен быть файл, который Вы открыли, вообще непонятно.. Ну, видимо, я основы программирования плохо знаю

[Veleri92]

а каким типом нужно объявить переменную s? что получить нормальный ответ?

[Veleri92]

program pr;
var
f:text;
slovo:string;
i:integer;
Begin
i:=0;
ASSIGN(f,'D:\BB.txt');
reset(f);
while not(Eof(F)) do
begin
Inc(i);
Readln(F,slovo);
if (i mod 2<>0) then begin
if sizeof(slovo)=4 then
writeln(slovo)
else writeln('<>4');
end;
end;
close(f);
readln;
end.

[Serge_Bliznykov]

а каким типом нужно объявить переменную s? что получить нормальный ответ?

Вы перечитайте в моём сообщении пункт 3)

повторю.
я не понимаю, что у Вас есть и что Вам нужно получить в результате...

[Veleri92]

Дан текстовый файл, на ПК. Нужно что б програма прочитала этот файл, потом посчитала размер каждого нечетного слова( тоесть 2, 3, 5...) и если размер совпадет с 4 байтам еще раз отдельно выписать это слово. Вот, если честно до меня только не доходит какую процедуру или функцию можно использовать для того что бы посчитать размер данного слова.(

[Serge_Bliznykov]

вот теперь ясно.
обычно размер слов считают в символах (они же буквы)
Два вопроса наводящих...
1) В файле одна строчка или может быть много?
Если много - то отсчёт слов (чётные/нечётные) продолжается на следующую строчку или каждая строчка - счёт слов начинается с единицы?
2) что является разделителем слов? (поясню - это могут быть только пробелы, а могут быть настоящие разделители (кроме пробелов, это и знаки препинания, и скобки и прочая..)