Дана строка найти количество знаков в этом строке

Где эта строка

Var s:string;

begin
s:='Дана строка найти количество знаков в этом строке';
writeln("Количество знаков в строке: ", length(s));
readln
end.