Найти есть ли в данной строке есть строка .pas - PascalABC.NET

Формулировка задачи:

Дана строка D:\prog\work\pr.txt найти есть ли в данной строке есть строка .pas

Решение задачи: «Найти есть ли в данной строке есть строка .pas»

Листинг программы

function ContainsPas(s: string): string := s.Contains('.pas') ? 'содержит' : 'не содержит';
 
begin
  var (s1, s2) := ('D:\prog\work\pr.txt', 'D:\prog\work\pr.pas');
  writelnformat('{0} {1}{4}{2} {3}', s1, ContainsPas(s1), s2, ContainsPas(s2), NewLine);
end.

Объяснение кода листинга программы

В коде определена функция ContainsPas, которая принимает один аргумент типа string и возвращает результат также типа string.
Внутри функции происходит проверка наличия подстроки .pas в переданной строке с помощью метода Contains.
Если подстрока найдена, то функция возвращает строку содержит, иначе возвращает строку не содержит.
В основной части кода определены две переменные s1 и s2, которые содержат строки 'D:\prog\work\pr.txt' и 'D:\prog\work\pr.pas' соответственно.
С помощью функции writelnformat выводится информация о результате проверки наличия подстроки .pas в переданных строках.
Переменные s1 и s2 передаются в функцию ContainsPas, а результат проверки сохраняется в переменных s1 и s2.
Функция writelnformat выводит на экран информацию о результатах проверки с использованием функции ContainsPas.
Результатом работы программы будет вывод на экран информации о том, содержит ли строка 'D:\prog\work\pr.txt' подстроку .pas и содержит ли строка 'D:\prog\work\pr.pas' подстроку .pas.