Как прочитать текстовый файл не построчно, а полностью? - Free Pascal

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

Как прочитать текстовый файл не построчно, а полностью? Просто дано задание: найти в каждой строке максимально встречающуюся букву и переписать в новый файл все слова в которых она встречается. Проблема в том что например: ooo tt oooo mo mmmm m tt to rrrm t t www ww В данной ситуации она выведет: o m w и слова которые будут переписаны это (1)ooo oooo mo (2)mmmm m (3)www ww, а должно быть (1)ooo oooo mo (2)mmmm m to (3) rrrm www ww

Решение задачи: «Как прочитать текстовый файл не построчно, а полностью?»

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

{$mode objfpc}
uses
  Classes, SysUtils;
 
var
  Str: TStringList;
begin
  Str := TStringList.Create; //создали
  Str.LoadFromFile('in.txt'); // прочитали весь файл
 
  writeln(str.text); // в str.text все содержимое
 
  Str.Free; //уничтожили
end.

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

В первой строке указывается режим компиляции {$mode objfpc}, который определяет, что код будет компилироваться в формате OBJFPC.
В следующей строке используются модули Classes и SysUtils.
Далее объявляется переменная Str типа TStringList.
В строке Str := TStringList.Create; создается новый объект TStringList.
В строке Str.LoadFromFile('in.txt'); содержимое файла 'in.txt' загружается в объект Str.
В строке writeln(str.text); выводится содержимое объекта Str.
В строке Str.Free; объект Str освобождается.
В конце программы нет точки с запятой.