Есть текст надо вывести буквы которых в тексте нет

if f[i]<>h then
begin
append(str);
writeln (str,',буквы которых нет',h);
close(str);
end;
end.

uses crt;
var s:string;
    bk,m:set of char;
    i:char;
    j:byte;
begin
clrscr;
bk:=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
writeln('Текст:');
readln(s);
m:=[];
for j:=1 to length(s) do
if s[j] in bk then m:=m+[s[j]];
bk:=bk-m;
writeln('В тексте нет букв:');
for i:='A' to 'ё' do
if i in bk then write(i,' ');
readln
end.

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.