Анализ строк файла: вывести последнее слово каждой строки - Turbo Pascal

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

9 количество строк. вывести последнее слово каждой строки.

Решение задачи: «Анализ строк файла: вывести последнее слово каждой строки»

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

Uses
  crt;
var
  s,l:string;
  i:integer;
  f:text;
begin
  clrscr;
  assign(f,'text.txt');
  reset(f);
  while not eof(f) do
    begin
      l:=''; 
      readln(f,s);
      for i:=length(s) downto 1 do
        if s[i]<>' ' then
          l:=s[i]+l
        else
          break;
      writeln(l);
    end;
  close(f);
  readln;
end.

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

В начале кода используются библиотеки crt и text.
Переменная s инициализируется пустой строкой.
Переменная l инициализируется пустой строкой.
Переменная i инициализируется значением 1.
Функция eof(f) проверяет, достигнут ли конец файла.
Цикл while не заканчивается, пока не будет достигнут конец файла.
Внутри цикла переменная l инициализируется пустой строкой.
Чтение следующей строки из файла осуществляется с помощью функции readln(f,s).
В цикле for переменной i от длины строки s до 1 происходит проверка каждого символа строки.
Если текущий символ не является пробелом, то он добавляется к переменной l.
Если текущий символ является пробелом, то цикл прерывается и выводится значение переменной l.
После окончания цикла файл закрывается с помощью функции close(f).
Вызывается функция readln для чтения следующей строки.
Конец программы.