Вывести true, если в заданной строке символов буква a встречается чаще, чем буква b - Turbo Pascal

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

Вывести true, если в заданном строке символов буква a встречается чаще, чем буква b, и вывести false в противном случае. Только без массива, самую простую, пожалуйста

Решение задачи: «Вывести true, если в заданной строке символов буква a встречается чаще, чем буква b»

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

var k : integer;
    c:char;
begin
  Write('Vvedite stroku:');
  k:=0;
  while not eoln do begin
   read(c);
   k:=k+ord(c='a')-ord(c='b');
  end;
  WriteLn(k>0)
end.

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

Создается переменная k типа integer, которая будет использоваться для хранения результата проверки.
Создается переменная c типа char, которая будет использоваться для чтения символа из введенной строки.
Выводится сообщение Vvedite stroku: для запроса ввода строки.
Переменная k инициализируется значением 0.
Запускается цикл while, который будет выполняться до тех пор, пока не будет достигнут конец строки (не будет получен символ новой строки).
Внутри цикла считывается символ из введенной строки и сохраняется в переменной c.
Значение переменной k увеличивается на разницу между порядковым номером символа 'a' и порядковым номером символа 'b'.
После завершения цикла выводится значение переменной k с помощью функции WriteLn. Если значение k больше 0, то выводится true, иначе - false.