Pascal|Из заданного текста вывести на печать только цитаты

[Dadni]

Из заданного текста вывести на печать только цитаты, т.е. фрагменты текста, заключенные в кавычки. Сами кавычки не печатать.

[Stilet]

Код ввода текста показать сможешь?

[Dadni]

Тему можно закрывать.

[newerow1989]

var s:string;
    i:integer;
    b:boolean;
begin
   s:='mama "myla" ramy "i" upala "tut';//Readln(s);
   b:=false;
   For i:=1 to Length(s) do
   begin
      If s[i]='"' then
      begin
         b:=not b;
         If not b then
            Writeln;
         Continue;
      end;
      If b then
         Write(s[i]);
   end;
   Readln;
end.

Сойдет?

[Dadni]

Сообщение от newerow1989

var s:string;
    i:integer;
    b:boolean;
begin
   s:='mama "myla" ramy "i" upala "tut';//Readln(s);
   b:=false;
   For i:=1 to Length(s) do
   begin
      If s[i]='"' then
      begin
         b:=not b;
         If not b then
            Writeln;
         Continue;
      end;
      If b then
         Write(s[i]);
   end;
   Readln;
end.

Сойдет?

Да, спасибо.

[newerow1989]

Пожалуйста!

[Dadni]

Сообщение от newerow1989

Пожалуйста!

Если сможете, помогите, пожалуйста, а то бьюсь уже битый час об нее.
http://www.programmersforum.ru/showthread.php?t=283177

[Dadni]

Сообщение от newerow1989

Пожалуйста!

Или вот эту, если можете, пожалуйста.
Все остальные я сделал.
http://www.programmersforum.ru/showthread.php?t=283173