Проверить программу, очень нужна помощь(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]

если хочеш можеш после слова string убрать скобочки с цифрой и тогда у тебя под строку выделится 255 символов.

Ага, щаззз. В PascalABC другие правила, это тебе не Турбо-Паскаль...

Кроме того, если описать строку так:

const a : string = 'тут сама строка';

, то ABC начнет возмущаться ниже по коду, при попытке удалить часть константной строки. Так что описывай, как описывала, просто инициализируй строку в начале программы:

var
  a,b:string;
  c:byte;
begin
  a := 'one,two,two,three,four,two,five,one,one,two.';
  repeat
  ...

Кстати, PascalABC имеет одну не очень хорошую черту, по крайней мере PascalABC.NET 1.7 сборка 452 (ну, вообще-то не одну, но эта - вообще какой-то кошмар) :

var a, b : string;
begin
   a := ''; b := '';
   writeln(pos(a, b));
end.

Напечатает не 0, а 1, поэтому программа, приведенная Lapp-ом в 5-ом посте может зависнуть, если будет запускаться на .NET-овской версии Pascal ABC. Как вариант исправления:

    if (c > 0) and (pos(b,a)<>0) then begin