Напишите 3 вариант, пожалуйста

begin
  var w:=ReadlnString('Введите слово:');
  w[1]:='*'; w[w.Length]:='*';
  Writeln(w)
end.


Введите слово: Паскаль
*аскал*

begin
  var s:=ReadlnString('Введите текст:');
  Writeln('Количество слов равно ',s.ToWords.Count)
end.


Введите текст: Карл у Клары украл кораллы
Количество слов равно 5