По 1.из слова природа составить слова родина, порода 2.подсчитать к-во букв во введенном с кл-ры предложении!

1) var s:string;
begin
s:='природа';
writeln('Cоставить слово "Родина" невозможно');
writeln(s[1],s[6],s[2],s[6],s[7],s[8]);
end.
2)var s:string;
begin
readln(s);
writeln('Длина строки:', length(s));
end.