Pascal.Задача на строки.

[Amenus]

В общем задали такую вот задачку для развития:
Выделить из строки подстроки,заключённые в [] квадратные скобки.Вложенные скобки не рассматривать.
Не знаю с чего подступиться,просто у меня проблемы с подстроками)
Не подскажите как решить сиё?=)

[Sazary]

uses crt;
const L='['; R=']';
var s,sub : string;
i,k,len : integer;
begin
clrscr;
writeln('Enter string:');
readln(s);
k := 1;
len := length(s);
writeln;
repeat
i := pos(L,copy(s,k,len));
if i=0 then break;
k := k+i;
i := pos(R,copy(s,k,len));
if i=0 then break;

sub := copy(s,k,i-1);
writeln(sub);
k := k+i;
until (i=0) or (k>len);
readln;
end.

--------
Пример ввода:

Enter string:
aaad[123] ddf[232]dfa[53]d

123
232
53

[Amenus]

Паскаль не понимает команду

break

;
=\

[puporev]

Слушай, у всех понимает, у тебя не понимает. Что ты там накалякал в коде? Покажи, только конкретно то, что у тебя написано.

[Sazary]

Amenus А что у вас за компилятор? Любой паскаль должен понимать break.
Хотя я слышал, что версии до 7 могут о нем и не знать. Например, TP 5.5

[Veselyn]

У меня седьмой попробовал: все работает отлично. Sazary нужно +++ за код.
З.Ы. нужен нормальный Паскаль напиши выложу.

[Amenus]

Sazary огромное спасибо)Версия 7.1;брать не хочет=(
Puporev код просто тупо скопипастил.

if i=0 then break;

в это месте плюётся unknown identifier.
Veselynвыложи,пожалуйста.

[puporev]

Ну вот запусти мою программу, я тоже просто скопировал и через Notepad++ перетащил в Паскаль.

[pascal1994]

Помогите!!!!
Задачка:
сколько разних слово встречается в данной строке

[Amenus]

puporev,спасибо,но всё равно на брейк ругается.Видимо дело в компиляторе.