Проверить программу, очень нужна помощь(Pascal ABC) Опции

[Татьяна12678]

проверьте пожалуйста правильно ли сделана программа:вот условие Дана последовательность,содержащая от 1 до 30 слов,в каждом из которых от 1 до 5 строчных латинских букв,между соседними словами-запятая,за последними словами-точка.Напечатать все различные слова,встречающиеся в последовательности более двух раз.

var
a,b:string;
c:byte;
begin
readln(a);
repeat begin
c:=pos(',',a);
b:=copy(a,1,c-1);
delete(a,1,c);
if pos(b,a)<>0 then write(b,' ');end;
until c=0;
end.

Очень надеюсь на вашу помощь))заранее спасибо!!!!

[IUnknown]

Если и есть что хорошего в Pascal ABC - то это возможность использовать всю мощь .NET-а... Вот с использованием классов .NET задача решается так:

uses System.Collections.Generic;
var a : string;
begin
   with new System.Collections.Generic.SortedList<string, integer> do
   begin
      readln(a);
      foreach st:string in a.TrimEnd('.').Split(',') do
         if ContainsKey(st) then
         begin
            Item[st] := Item[st] + 1;
            if Item[st] = 3 then writeln(st);
         end
         else Add(st, 1);
   end;
end.

P.S. Андрей, в задаче надо было

Напечатать все различные слова,встречающиеся в последовательности более двух раз.

, твой код делает "более одного раза".