паскаль:Дана последовательность из n знаков. Узнать, в какой половине

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

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