Ошибка с поиском телефона в справочнике код написан на паскаль авс

program FindPhoneNumber;

uses
SysUtils, Classes, Generics.Collections;

var
f: TextFile;
name, phoneNumber: string;
searchName: string;
phoneBook: TDictionary<string, string>;
found: Boolean;
phoneNumberValue: string;

begin
AssignFile(f, 'Text.txt');
Reset(f); // Открываем файл для чтения

Write('Введите ФИО для поиска: ');
ReadLn(searchName);

searchName := Trim(searchName); // Удаляем пробелы в начале и конце строки

phoneBook := TDictionary<string, string>.Create(AnsiLowerCaseComparer); // Используем нерегистрозависимое сравнение

// Читаем данные ФИО и номеров телефонов из файла и добавляем их в словарь
while not Eof(f) do
begin
ReadLn(f, name);
ReadLn(f, phoneNumber);
phoneBook.Add(AnsiLowerCase(name), phoneNumber); // Преобразуем ФИО к нижнему регистру
end;

CloseFile(f);

// Ищем введенное ФИО в словаре (с преобразованием к нижнему регистру)
found := phoneBook.TryGetValue(AnsiLowerCase(searchName), phoneNumberValue);
if found then
WriteLn('Найден номер телефона: ', phoneNumberValue)
else
WriteLn('Номер телефона не найден.');

phoneBook.Free ;
ReadLn;
end.
Пишет телефонный номер не найден что не так в программе? Написано на Паскаль авс