ПРОЦЕДУРЫ И ФУНКЦИИ!!!***PASSCAL*****
ДАНЫ ДВЕ СТРОКИ. ВЫВЕСТИ ТУ СТРОКУ,ГДЕ БОЛЬШЕ ЗНАКОВ ПРЕПИНАНИЯ.

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

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

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

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

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

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