ПРОЦЕДУРЫ И ФУНКЦИИ!!!***PASSCAL*****ДАНЫ ДВЕ Строчки. ВЫВЕСТИ ТУ Строчку,ГДЕ БОЛЬШЕ Символов

все знаки препинания

, ! ? . : ;

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var prep:=',!?.:;';
  var s1:=ReadlnString('Строчка 1:');
  var n1:=s1.Where(c-gt;c in prep).Count;
  var s2:=ReadlnString('Строчка 2:');
  var n2:=s2.Where(c-gt;c in prep).Count;
  if n1gt;n2 then s1.Println
  else
    if n1lt;n2 then s2.Print
    else Writeln('Количества символов препинания в обоих строчках одинаковы')
end.

То же, с ПОЛЬЗОВАТЕЛЬСКИМИ процедурами и функциями

function PCount(s:string):=s.Where(c-gt;c in ',!?.:;').Count;

procedure PrintRes(n1,n2:integer; s1,s2:string);
begin
  if n1gt;n2 then s1.Println
  else
    if n1lt;n2 then s2.Print
    else Writeln('Количества знаков препинания в обоих строках равны')
end;

begin
  var s1:=ReadlnString('Строчка 1:');
  var s2:=ReadlnString('Строчка 2:');
  PrintRes(PCount(s1),PCount(s2),s1,s2)
end.