Дан текстовый файл,содержащий текст на русском языке. Выбрать из него только те символы, которые встречаются в нем только один раз, в том порядке, в котором они встречаются в тексте — Pascal(Паскаль)

{Дан текстовый файл,содержащий текст на русском языке.Выбрать из него
 только те символы, которые встречаются в нем только один раз, в том
 порядке,в котором они встречаются в тексте }

program p;
var f:text;
    s:string;
    i,j,k:integer;
    m:set of char;
begin write('***************************************************');
      assign(f,'e:\F11.txt');
      reset(f);
      m:=['а'..'я'];
      writeln('Вот эти буквы:');
      while not(eof(f)) do
        begin readln(f,s);
              for i:=1 to length(s) do
                begin k:=0;
                      for j:=1 to length(s) do
                              if (s[i] in m)and(s[j] in m)and(s[i]=s[j])
                                 then k:=k+1;
                    if k=1  then write(s[i],' ');
                end;
          end;
    close(f);
end.