Составить программу вывода букв, которых нет в тексте — Pascal(Паскаль)

uses crt;
var f:text;
    name,s:string;
    bk,m:set of char;
    i:char;
    j:byte;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
bk:=['A'..'Z','a'..'z'];
m:=[];
while not eof(f) do
 begin
  readln(f,s);
  for j:=1 to length(s) do
  if s[j] in bk then m:=m+[s[j]];
  bk:=bk-m;
 end;
append(f);
writeln(f,'');
if bk=[] then write(f,'V texte est vse bukvy!')
else
 begin
  writeln(f,'V texte net bukv:');
  for i:='A' to 'z' do
  if i in bk then write(f,i,' ');
 end;
close(f);
write('Файл ',name,' переписан!');
readln
end.