Вывести строчные латинские буквы, которые не вошли в последовательность

program exzamen;
 
 const alfavit=['a'..'z'];
 var a:string;
     i,n:integer;
     f1,f2: file of char;
 begin
  writeln('Введите последовательность чисел');
  readln(a);
  
  assign(f1,'C\учеба паскаль\экзамен\input.txt');
  rewrite(f1);
   n:=length(a);
   for i:=1 to n do
    write(f1,a[i]);
  close(f1);
  
  for i:=1 to n do
   if a[i] in alfavit then exclude(alfavit,a[i]);
   
  assign(f2,'C\учеба паскаль\экзамен\output.txt');
  rewrite(f2);
  
   n:=length(alfavit);
   for i:=1 ti n do
    write(f2,alfavit[i]);
 end.

program exzamen;
 
const
  alfavit = ['a'..'z'];
 
var
  f1, f2: text;
  ch: char;
  p: set of char;
 
begin
  p := [];
  assign(f1, 'input.txt');
  reset(f1);
  assign(f2, 'output.txt');
  rewrite(f2);
  writeln('Исходный файл: ');
  while not eof(f1) do 
  begin
    read(f1, ch);
    write(ch);
    if ch in alfavit then 
      include(p, ch);
  end;
  p := alfavit - p;
  writeln;
  writeln('Строчные латинские буквы, которые не вошли в последовательность: ');
  for ch := #32 to #255 do
    if ch in p then 
    begin
      write(ch, ' ');
      write(f2, ch);
    end;  
  close(f1);    
  close(f2);    
end.