Программа вводит две строки. из более длинной строки программа выводит все символы, коды которых > 70. в короткой строке заменяет все «! » знаки на «*» и выводит короткую строку на экран.

begin
  var s1:=ReadlnString('Строка 1:');
  var s2:=ReadlnString('Строка 2:');
  if s1.Length>s2.Length then Swap(s1,s2);
  s1:=s1.Replace('!','*'); s1.Println;
  s2.ToCharArray.Where(x->Ord(x)>70).Println
end.