Работа с текстовыми файлами - Pascal ABC

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

Создать в "Блокноте" текстовый файл (test1.txt) разбитый на строки. Вывести на экран и записать в другой файл (test2.txt) все строки первого файла, в которых первая буква совпадает с последней. Помогите пожалуйста дописать программу

                    Листинг программы
                
 
                        
                          
                    
var
  txt1,txt2:text;
  st,st1:string;
 
    begin
      assign(txt1,'test1.txt');
      assign(txt2,'test2.txt');
      reset(txt1);   rewrite(txt2);
       while not (eof(txt1)) do
        begin
          readln(txt1,st);
          if st[length(st)-1] = st[0]
          then
           begin
           
           end;
         writeln(txt2,st1);
         st:=st1
         end;
        writeln(txt2,st); 
        close(txt1); close(txt2);
   end.

Решение задачи: «Работа с текстовыми файлами»

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

while not (eof(txt1)) do
  begin
    readln(txt1,st);
    if st[length(st)] = st[1] then writeln(txt2,st);
  end;
close(txt1); 
close(txt2);

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

В цикле while не (eof(txt1)) do происходит чтение файла txt1 с помощью функции readln. Функция readln считывает данные из файла до конца строки и возвращает их в виде массива символов.
Чтение происходит в переменную st.
Затем проверяется условие if st[length(st)] = st[1]. Это условие проверяет, является ли последний символ в строке st первым символом этой же строки. Если это условие истинно, то происходит запись строки st в файл txt2 с помощью функции writeln.
После завершения чтения файла txt1 и проверки условия if происходит закрытие файлов txt1 и txt2 с помощью функций close.