Напечатать все слова взятые в скобки знаком » — Pascal(Паскаль)

Var
a: integer;
stroka, c: string;
begin
writeln('Введите строку');
Readln(stroka);
c:='';
a:=1;
While a>0 do
begin
a:=Pos('"', stroka);
Delete(stroka, 1, a);
a:=Pos('"', stroka);
c:=c+copy(stroka, 1, a);
Delete(stroka, 1, a);
end;
Writeln(c);
 
end.