Помогите написать программку в Pascal1-e Задание

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите имя и фамилию:');
  var c:=ReadlnChar('Введите знак для поиска:');
  if s.Contains(c) then Writeln('Знак в строке есть')
  else Writeln('знака в строке нет');
  var a:=s.ToWords;
  Writeln(a[0]);
  Println(a[1],a[0])
end.

Пример
Введите имя и фамилию: Петрусь Бровка
Введите знак для поиска: у
Знак в строке есть
Петрусь
Бровка Петрусь