Файл: найти слова, отличные от последнего, в которых нет повторяющихся букв

uses crt;
var f,g: text;
    s,ps,s1: string;
    i,j,k:integer;
    m:set of char;
begin
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
//читаем файл первый раз, ищем последнее слово в последней строке(их наверное может быть не 1)
while not eof(f) do
 begin
  readln(f,s);
  if eof(f) then //последняя строка
   begin
    i:=length(s);
    ps:='';
    while(i>=1)and (s[i]<>' ') do
     begin
      ps:=s[i]+ps; //составляем последнее слово(после него нет знаков препинания, про это не написано)
      i:=i-1;
     end;
    writeln('Последнее слово ',ps);
    writeln(g,'Последнее слово ',ps);
   end;
 end;
close(f);
reset(f);
//чимтаем второй раз ищем слова(нужные)
while not eof(f) do
 begin
  readln(f,s);
  i:=1;
  while i<=length(s) do
  if(s[i]<>' ')and((i=1)or(s[i-1]=' ')) then
   begin
    s1:='';
    j:=i;
    while(j<=length(s))and (s[j]<>' ') do
     begin
      s1:=s1+s[j];
      j:=j+1;
     end;
    if s1<>ps then
     begin
      k:=0;
      m:=[];
      for j:=1 to length(s1) do
      if not(s1[j] in m)then
       begin
        k:=k+1;
        m:=m+[s1[j]];
       end;
      if k=length(s1) then
       begin
        write(s1,' ');
        write(g,s1,' ');
       end;
     end;
    i:=i+length(s1);
   end
  else i:=i+1;
 end;
close(f);
close(g);
end.