Выделить в переменную t все символы последней строки текста - Free Pascal

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

Дан текстовый файл литерных величин. Выделить в переменную t все символы последней строки текста, идущие в ней после первого вхождения символа, значение которого хранится в переменной Х. текст вывести из файла помогите

Решение задачи: «Выделить в переменную t все символы последней строки текста»

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

var
  f: Text;
  t: String;
  x: Char;
begin
  Write('Введите символ: '); ReadLn(x);
  Assign(f,'text.txt'); Reset(f);
  while not EOF(f) do ReadLn(f,t);
  Close(f);
  if Pos(x,t)>0 then Delete(t,1,Pos(x,t)) else t:='';
  WriteLn('''',t,'''');
end.

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

Объявлены три переменные: f, t и x.
Пользователю предлагается ввести символ.
Файл text.txt открывается на чтение в режиме текстового файла.
Пока файл не пуст, считывается строка из файла и сохраняется в переменной t.
Файл закрывается.
Если введенный пользователем символ присутствует в строке t, то он удаляется вместе с последовавшими за ним символами (до следующего вхождения этого же символа).
Если введенный пользователем символ отсутствует в строке t, то строка t очищается.
На экран выводится строка в кавычках, представляющая собой значение переменной t.