Вывести на экран последние N слов из файла (слова вывести в строчку)

var
   f1,f2:text;
   s:array[1..1000] of string; // вспомогательный массив
   sl: string;
   i,j,n,m,k: integer;
begin
  assign (f1, 'input.txt');
  reset(f1);
  n:=0; // счётчик строк вспомогательного массива
  while not eof(f1) do
        begin
             readln(f1, sl);
             n:=n+1; // открываем счёт строк вспомогательного массива
             for i:=1 to length(sl) do // посимвольно перебираем строку
// === запишем во вспомогательный массив ПОСТРОЧНО текст из файла ================
                 if sl[i]<>' ' then s[n]:=s[n]+sl[i] // пока не пробел - набираем посимвольно слова
                    else n:=n+1; // иначе - переходим на новую строку
       end;
 //===================
//for i:=1 to n do writeln(s[i]); // вывод по строкам вспомогательного массива - не обязательно
  close(f1);
//=====================
  writeln('Укажите какое количество последних слов нужно вывести: ');
  readln(m);
  for i:=n-m+1 to n do write(s[i],' ');
end.

const rz=[' ',',','.','?'];
var f1,f2:text;
    s:array[1..1000] of string; // вспомогательный массив
    sl:string;
    i,j,n,m,k: integer;
begin
assign (f1, '1.txt');
reset(f1);
n:=0; // счётчик слов вспомогательного массива
while not eof(f1) do
 begin
  readln(f1, sl);
 // writeln(sl); если хотите прочитать
  i:=1;
  while i<=length(sl) do
  if not(sl[i]in rz)and((i=1)or(sl[i-1]in rz)) then //если не разделитель, а перед ним разделитель
   begin
    inc(n); //новое слово
    s[n]:='';//будем его составлять
    j:=i;
    while (j<=length(sl))and not(sl[j] in rz) do//пока не разделитель
     begin
      s[n]:=s[n]+sl[j];
      inc(j);
     end;
    i:=i+length(s[n]); {перешагнем через слово}
   end
  else inc(i);{пропускаем разделители}
 end;
close(f1);
write('Укажите какое количество последних слов нужно вывести m=');
readln(m);
for i:=n-m+1 to n do write(s[i],' ');
end.