Что делает каждая строка данного кода - Pascal

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

Напишите пожалуйста,что делает каждая строка этого кода. Немного не понимаю.

var
    count, i, m , j: integer;
    input : string;
    s, t : string;
 
begin
    count := 0;
    write('Vvedite stroky: ');
    readln(input);
    i:= length(input) - 1;
    while input[i] <> ' ' do dec(i);
    s:= copy(input, i + 1, length(input) - i - 1);
    for j:= 1 to i do
    begin
      if input[j] <> ' ' then
        t:= t + input[j]
      else
      begin
        if (t <> ' ') and (t <> s) then
        writeln('  ', copy(t, 1, length(t) - 1));
        t:= ' ';
      end;
    end;
    readln;
end.

Решение задачи: «Что делает каждая строка данного кода»

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

var
    count, i, m , j: integer;
    input : string;
    s, t : string;
 
begin
    count := 0;//это считаем слова, но в программе подсчета нет, можно убрать
    write('Vvedite stroky: ');
    readln(input);
    i:= length(input) - 1;//встаем в предпоследний символ строки, видимо последний точка
    while input[i] <> ' ' do dec(i);//идем назад пока не встретим пробел
    s:= copy(input, i + 1, length(input) - i - 1);//копируем послежнее слово от пробела до предпоследнего символа
    for j:= 1 to i do//идем сначала до последнего пробела
    begin
      if input[j] <> ' ' then//если не пробел
        t:= t + input[j]//составляем слово
      else//пробел
      begin
        if (t <> ' ') and (t <> s) then//если слово не равно последнему
        writeln('  ', copy(t, 1, length(t) - 1));//выводим его на экран
        t:= ' ';//обнуляем текущее слово
      end;
    end;
    readln;
end.

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

Объявлены переменные: count, i, m, j (тип: integer), input (тип: string), s, t (тип: string).
Переменная count инициализируется значением 0.
Пользователю предлагается ввести строку.
В цикле while считывается последнее слово из введенной строки (до последнего пробела).
В цикле for проходит по всем символам строки до последнего пробела.
Если текущий символ не пробел, то добавляется в переменную t.
Если текущий символ - пробел, то проверяется, не является ли последнее слово в переменной t последним или первым словом в строке.
Если последнее слово в переменной t не является последним или первым словом в строке, то оно выводится на экран.
Переменная t обнуляется.
Цикл for завершается.
Программа ожидает ввода пользователя.
Программа завершается.