Паскаль. Стек

[Rediska512]

Помогите пожалуйста.
Задача: Создать текстовый файл, между словами запятая, в конце точка.
За один просмотр файла вывести самые длинные слова (с помощью стека)

Вот код процедуры обработки программы

procedure obrabotka(var f:text; var head:ptr);
var s,slovo:string; i,j:byte;
begin
   reset(f)
   while not(eof(f)) do
   begin
      readln(f,s);
      slovo:='';
      for i:=1 to length(s) do
      begin
      if s[i]<>',' then slovo:=slovo+s[i]
      else
      begin
         if head=nil then begin add(head,slovo); slovo:=''; end
         else
         if length(slovo)=length(head^.data) then begin add(head,slovo); slovo:=''; end
         else if length(slovo)>length(head^.data) then
         begin
            del(head);
            add(head,slovo); slovo:='';
         end;
      end;
      end;
   end;
   close(f);
end;

все хорошо если самое длинное слово одно, а когда 2 и больше то начинаются непонятки, выводит что угодно кроме того что надо
и мне кажется что проблема в строчке

   if length(slovo)=length(head^.data) then begin add(head,slovo); slovo:='';

а вот что именно не пойму
ЗЫ Процедуры add и del работают правильно (проверял в другой программе)
Помогите пожалуйста
ЗЗЫ Условие про точку пропустил и ставил в конце строчки запятую все равно не работала как надо

[Hacker19_90]

Так а ну ка алгоритм ваш! В чём его суть?

[Serge_Bliznykov]

кросспост!