у меня вообще нет вариантов. я не знаю,как работать с отдельными строками,как их сравнивать. могу только оболочку программы:
program z24;
uses wincrt;
var f:text;x,k:integer;s:string;
begin assign(f,'C:\Program Files\PASCAL\BIN\44.text');
reset(f);
while not eof(f) do
begin
while not eoln(f) do
begin read(f,x);

дальше не знаю,какой нужен счетчик,оператор. для вычисления самой длинной строки наверно нужен length но что с чем сравнивать? напишите хотя бы основные строчки и счетчики. пожалуста, завтра уже надо!