Напечатать все строки, длина которых равна данному числу

[Lera64]

Ребят помогите задачу решить.для зачета надо!
Дан текстовый файл.Напечатать все строки, длина которых равна данному числу.Заранее спасибо!

[Алексей_2012]

Берете переменную строковую, в цикле присвойте ей значение 0-ой строки, извлеките длину(length ) сравнивайте с числом введенном откуда-то там, если length=число, то вывод на экран, все просто), далее новый виток цикла, но уже 1-ая строка и т.д

[kventin_zhuk]

var
  fp: text;
  str: string;
  size: integer;
................
assign(fp, '1.txt');
reset(fp);
write('Enter size of string: ');
readln(size); 

while not(eof(fp)) do
begin
   readln(fp, str);
   if (length(str) = count) then
             writeln(str);
end;
  
close(fp);

мысли вслух. Не проверял

[Poma][a]

if (length(str) = count) then

Всё-таки, наверное, size.

И у меня у одного fp ассоциируется с Free Pascal?

[Stilet]

И у меня у одного fp ассоциируется с Free Pascal?

Ассоциация: fp - File Pointer.