переписать под паскаль абс.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();
}
}