Паскаль: дана последовательность из n символов. выяснить, в какой половине последовательности, в первой или во второй, больше вопросительных знаков. (не исключается случай равенства).

// PascalABC.NET 3.0, сборка 1128
begin
  var s:=ReadString('Введите строку:');
  var d1:=Copy(s,1,s.Length div 2).Where(x->x='?').Count;
  var d2:=s.Where(x->x='?').Count-d1;
  if d1>d2 then Writeln('В первой половине больше "?"')
  else
    if d1<d2 then Writeln('Во второй половине больше "?"')
    else Writeln('Поровну "?"')
end.

Тестовое решение:
Введите строку: 54ttge5t?getg5??ee4t3t?#43t4gfdaf?ss?sfsf?sfse
В первой половине больше "?"