Вывести на экран первое слово, заключенное в кавычки - Turbo Pascal

Введите текст, вывести на экран первое слово, заключенное в кавычки. Помогите пожалуйста .

Листинг программы

Var S : String;
Begin
  S:='"кавычки"';
  Writeln(Copy(S,Pos('"',S)+1,Pos('"',Copy(S,Pos('"',S)+1,Length(S)))-1));
end.

Объяснение кода листинга программы

Объявляется переменная S типа String, которая будет использоваться для хранения строки.
Значение переменной S присваивается строка 'кавычки'.
С помощью функции Writeln выводится на экран содержимое переменной S.
Строка S разбивается на подстроки с помощью функции Pos. Первая подстрока начинается с символа '', а вторая подстрока заканчивается символом ''.
Функция Copy используется для получения подстроки между кавычками.
Функция Pos снова находит позицию кавычки в строке S.
Функция Length используется для определения длины строки S.
С помощью оператора - вычитаются позиции кавычек и символа '`' из начала и конца подстроки.
Процесс повторяется до тех пор, пока не будет найдена следующая пара кавычек.
Код завершается, и на экран выводится последняя подстрока, содержащая первое слово в кавычках.