Запись в файл в правильной кодировке - Free Pascal

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

Столкнулся с проблемой русских букв при работе с файлами. Не могу выбрать нужную кодировку для файлов, чтобы русские буквы корректно считывались и обрабатывались. При UTF-8 один символ идет вообще как два байта, а при других кодировках выходят кракозяблики. Какую кодировку выбрать для free, чтобы из текстовых файлов корректно читались русские буквы?

Решение задачи: «Запись в файл в правильной кодировке»

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

uses windows;
var
  f : text;
  s : string;
begin
  SetConsoleOutputCP(1251);
 
  assign(f, 'd:\test\thread617730.txt');
  reset(f);
  readln(f, s);
  writeln(s);
  close(f);
end.

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

Установка кодировки консоли в 1251 (Windows Cyrillic) с помощью функции SetConsoleOutputCP.
Открытие файла 'd:\test\thread617730.txt' с помощью функции assign.
Переход в начало файла с помощью функции reset.
Чтение строки из файла с помощью функции readln и сохранение её в переменную s.
Вывод строки на консоль с помощью функции writeln.
Закрытие файла с помощью функции close.