Даю 25 баллов! Нужно срочно выполнить задание в Pascal. "Дана строка,вывести 7-ую букву в этой строке."

var

str, charQ: string;

begin

str:="Строка";

charQ := Copy(str, 7, 1);

end;