текстовый файл

[Эвген]

Имеется текстовый файл. Найдите длину самой длинной строки.

Хочу использовать такой алгоритм решения,где нашли позиции точек, они ж равны числам. Потом от второй такой позиции отнять первую, и если эта разность больше,чем значение позиции первой точки,то значит вторая строчка больше..как-то так..не знаю,насколько это правильно...начал делать код, вывел позиции точек..а вот как их запомнить и потом действия над ними проводить не знаю. Если есть мысли, подскажите.

вот мой код

uses crt;
var f:text;
 a:array [1..1000] of string;
n:string;
 s:string;
i,v:integer;
begin
cls;
assign(f,'приложениеВ.txt');
reset(f);
while not eof(f) do
begin
readln (f,n);
s:=s+n;
end;
v:=length(s);
writeln(v);
 close(f);
  for i:=1 to v do
if s[i]='.' then
writeln(i); {вывели позиции}
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Что ж Вы так мудрите то?! Текстовый файл состоит из СТРОК (то, что Вы читаете через ReadLn и есть строка.
Через Length() получаете её длину. Ищите максимальную величину. Всё!

Max := 0;  {максимальная длина}
NomerMax := -1; {номер строки с максимальной длиной}
i := 0; {счётчик строк}
assign(f,'приложениеВ.txt');
reset(f);
while not eof(f) do
begin
  inc(i);
  readln (f, S);
  if Length(S)>Max then begin
     Max :=  Length(S);
     NomerMax := i;     
  end;
end;
if NomerMax<0 then WriteLn('В файл вообще нет значащих строк!')
else WriteLn(' Строка номер ',NomerMax,' имеет максимальную длину равную ',Max);
Readln;

Точки то тут при чём?! Или Вы задание неверно процитировали?!

[Эвген]

У меня мысль сразу,что предложения точками заканчиваются) поэтому и зациклился на них) Да..оказывается ларчик легко открывался) Спасибо за ответ)