ЗАДАНИЕ ПО ИНФОРМАТИКЕ!!!! 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.