Выводить в в TextBox выбранный билет, номер которого вводится в RealField - PascalABC.NET

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

PascalABC.net, Есть файл с билетами. Перед и в конце каждого билета стоят символы <-№билета и №билета->. Пример: "<-1 Сколько вам лет? 1-> Требуется выводить в форме(в TextBox) выбранный билет, номер которого вводится в (RealField) Буду очень благодарен за любые ответы.. Прикрепил то что смог набрать..

Решение задачи: «Выводить в в TextBox выбранный билет, номер которого вводится в RealField»

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

Program Test;
uses crt;
var txt : string;
 
begin
clrscr;
write('Введите текст: ');
readln(txt);
txt := '<-1 '+txt+' 1->';
writeln(txt);
while (Pos('<-', txt) > 0) do begin delete(txt, Pos('<-', txt), length('<-n_')); end;
while (Pos('->', txt) > 0) do begin delete(txt, Pos('->', txt) - length('_n'), length('_n->')); end;
writeln;
writeln(txt);
end.

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

Программа считывает текст из консоли и сохраняет его в переменной txt.
Затем программа добавляет строки '<-1 ' и ' 1->' в начало и конец текста соответственно.
Эта строка '<-1 '+txt+' 1->' выводится на консоль.
Далее, программа удаляет все символы '<-' и '->' из строки txt, используя функции Pos и Delete.
В конце программа выводит обновленную версию текста на консоль.
Результат: Текст, введенный пользователем, будет отображаться с '<-1 ' в начале и ' 1->' в конце. Все символы '<-' и '->' будут удалены.