НК
Настюнчик Красатуньчик
Стучись в агент, помогу
Самая быстрая (работает не через строки, поэтому не важно сколько символов в строке… т. е. символов в строке может быть больше 255
var Buf : array [1..1000] of Byte; F : File; NumStr, ReadSize, LenStr, Index : Word;
begin
Assign(F, 'Name.txt'); Reset(F, 1);
NumStr := 1; LenStr := 0;
repeat
BlockRead(F, Buf, 1000, ReadSize);
for Index := 1 to ReadSize do
case B[Index] of
13 : begin
WriteLn(NumStr, ' : ', LenStr);
LenStr := 0; Inc(NumStr);
end; { 13 }
10 : if LenStr > 0 then
Inc(LenStr);
else
Inc(LenStr);
end;
until ReadSize < 1000;
if LenStr > 0 then
WriteLn(NumStr, ' : ', LenStr);
Close(F);
end.