Дана строка символов. определить число символов в строке. если это число меньше 10, то добавить к строке символы 'клмнопрст' .нужен паскаль

Program n1;
var s: string;
begin
s:='stroka';
if length(s)<10 then s:=s+'КЛМНОПРСТ';
write(s);
end.