В заданном тексте найти первое и последнее слово, из полученных слов составить предложение - Free Pascal

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

Ваша программа должна в заданном тексте найти первое и последнее слово, из полученных слов составить предложение (слова разделить пробелом)

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

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

type mass= array of string;
var     f: Text;
     s,s1: string;
    j,i,t: integer;
        A: mass;
begin
      Assign(f,'Text_in.txt'); Reset(f);
      s1:=''; t:=0;
       While not Eof(f) do begin
        Readln(f,s);
         for i:=1 to Length(s) do begin
          if s[i] in ['A'..'Z'] then
            s1:= s1+s[i]
            else
          if s[i] in ['a'..'z'] then
            s1:= s1+s[i]
            else
          if Length(s1)<>0 then begin
           Inc(t);
           s1:=''
          end;
         end;
        end;
       SetLength(A,t);
       Reset(f);
       s1:=''; j:=1;
       While not Eof(f) do begin
        Readln(f,s);
         for i:=1 to Length(s) do begin
          if s[i] in ['A'..'Z'] then
            s1:= s1+s[i]
            else
          if s[i] in ['a'..'z'] then
            s1:= s1+s[i]
            else
          if Length(s1)<>0 then begin
           A[j]:=s1;
           Inc(j);
           s1:=''
          end;
         end;
        end;
       Close(f);
       Writeln(A[1],' ',A[t]);
       A:=nil;
       Readln;
end.

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

Объявлены переменные:
- f: Text;
- s,s1: string;
- j,i,t: integer;
- A: mass;
Открывается файл 'Text_in.txt' для чтения (Assign(f,'Text_in.txt'); Reset(f);).
Переменная s1 инициализируется пустой строкой, а переменная t устанавливается равной 0 (s1:=''; t:=0;).
В цикле While не Eof(f) выполняется чтение строки из файла и её обработка.
В каждой прочитанной строке ищутся буквы верхнего и нижнего регистра, которые добавляются в переменную s1.
Если длина строки s1 не равна 0, то увеличивается значение переменной t и сбрасывается значение переменной s1.
После окончания чтения файла, устанавливаются начальные значения для переменной s1 и счётчика j (s1:=''; j:=1;).
В цикле While не Eof(f) выполняется чтение строки из файла и её обработка.
В каждой прочитанной строке ищутся буквы верхнего и нижнего регистра, которые добавляются в переменную s1.
Если длина строки s1 не равна 0, то добавляется значение переменной s1 в массив A и увеличивается значение счётчика j.
После окончания чтения файла, закрывается файл (Close(f);).
Выводится первое и последнее слово из массива A (Writeln(A[1],' ',A[t]);).
Массив A очищается (A:=nil;).
Вводится символ для подтверждения выполнения программы (Readln;).