Переписать под паскаль абс.net Дана строка, в которой содержится осмысленное текстовое...

Question

Переписать под паскаль абс.net
Дана строка, в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются пробелами и знаками препинания. 1. Вывести только те слова сообщения, в которых содержится заданная подстрока.
using System;
using System.Linq;

class Program
{
static void Main(string[] args)
{
string str =
"Дана строка, в которой содержится осмысленное текстовое сообщение. " +
"Слова сообщения разделяются пробелами и знаками препинания\n";
string podstr = "ния";//подстрока
var temp = str.Split().Where(i => i.Contains(podstr));
Console.WriteLine(str);
foreach (var word in temp)
Console.Write(word+" ");
Console.ReadLine();
}
}

Answer 1

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

begin
  var str:='Дана строка, в которой содержится осмысленное текстовое сообщение. '+
    'Слова сообщения разделяются пробелами и знаками препинания'+NewLine;
  var podstr:='ния'; //подстрока
  var temp:=str.Split.Where(i->pos(podstr,i)>0);
  Writeln(str);
  foreach var word in temp do Print(word)
end.