Технический форум - Строки в паскаль

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Строки в паскаль (http://www.tehnari.ru/f43/t41895/)

Строки в паскаль

Решите пожалуста задачу на паскаль. Сама по себе лёгкая но я не могу понять как доделать её!!!

Задача:
Дана строка символов. Исключить из этой строки группы символов, расположенные между скобками []. Сами скобки тоже должны быть исключены. Предполагается , что внутри скобок нет других скобок.

У меня получилось удалить тока скобки, но вот то что внутри скобок удалить не получается!!!
Program hfhf;
var k,s:string;
n:byte;
begin
readln(s);
n:=pos('[]',s);
While n <> 0 do
begin
Delete (s,n,3);
n:=pos('[]',s);
end;
Writeln(s);
end.

Цитата:

Сообщение от zena (Сообщение 416546)

Я бы это сделал так:

Код:

Program hfhf;

var

 S:string;

 p1, p2, n:byte;

begin

 WriteLn('Enter the string:');

 ReadLn(S);

 p1:=pos('[',S);

 p2:=pos(']',S);

 n:=p2-p1+1;

 Delete (S,p1,n);

 WriteLn(S);

 ReadLn;

end.

Это если группа символов в квадратных скобках заведомо одна. Ну а если их может быть несколько, то так:

Код:

Program hfhf;

var

 S:string;

 p1, p2, n:byte;

begin

 WriteLn('Enter the string:');

 ReadLn(S);

 Repeat

  p1:=pos('[',S);

  p2:=pos(']',S);

  n:=p2-p1+1;

  Delete (S,p1,n);

 Until p1=0;

 WriteLn(S);

 ReadLn;

end.

То что нужно!!! спасибо большое!!! А решение было совсем рядом:)

Цитата:

Сообщение от zena (Сообщение 416683)

То что нужно!!! спасибо большое!!! А решение было совсем рядом:)

Да не за что. Обращайтесь, если что...