Mutilator

Программа работает нормально.
У вас проблема в оболочке паскаля.
Смените текущую директорию на директорию проекта.
Или (что гораздо более правильно) указывайте путь до текстового файла явным образом:

uses systemutils;

...

Assign(F, ExtractFilePath(paramstr(0))+'Police.txt');

ExtractFilePath - это извлечение пути до указанного в параметрах файла.
paramstr(0) - это полное название исполняемого файла программы.

Michalis Kamburelis
Modern Object Pascal Introduction for Programmers
https://castle-engine.io/modern_pascal (или в виде pdf)