Задача Слово в кавычках

Задана строка, которая состоит из маленьких латинских букв(‘a’-‘z’) и символов пробела(‘ ’). В заданной строке находится фраза, которая взята в кавычки (""). Вам необходимо найти эту фразу. Гарантируется, что в тексте всегда ровно две кавычки.

Формат ввода:
S - заданная строка.

Ограничения:
Длина S менее 255 символов.

Формат вывода:
Одна строка - фраза в кавычках.

Пример ввода:
text some text "qq" text

Пример вывода:
qq

var s:string; n,i,a:longint;
begin
 readln(s);
 n:=length(s);
 for i:=1 to n do
  if s[i]='"' then begin a:=i; break; end;
 for i:=a+1 to n do 
  if s[i]<>'"' then write(s[i])
   else break;
 end.