Дан текстовый файл. Вывести все согласные, которых нет ни в одном слове

uses crt;
const n=5;
      mmax=20;
type mas=array[1..n] of integer;
     fail=file of mas;
function max(x:mas):integer;
var i,mx:integer;
begin
mx:=abs(x[1]);
for i:=2 to n do
if abs(x[i])>mx then mx:=abs(x[i]);
max:=mx
end;
var f:fail;
    x,y:mas;
    m,i,j,k,mx:integer;
begin
clrscr;
randomize;
assign(f,'filef');
rewrite(f);
repeat
write('mведите количество компонет до ',mmax,' m=');
readln(m);
until m in [1..mmax];
for i:=1 to m do
 begin
  for j:=1 to n do
  x[j]:=-50+random(101);
  write(f,x);
 end;
writeln('Содержание исходного файла:');
writeln('Макс. модуль':n*5+12);
reset(f);
mx:=-maxint-1;
while not eof(f) do
 begin
  read(f,x);
  for i:=1 to n do
   begin
    write(x[i]:5);
    if max(x)>mx then mx:=max(x);
   end;
  writeln(max(x):7);
 end;
writeln('Максимальный модуль=',mx);
seek(f,0);
k:=0;{количество компонент с макс. модулем}
i:=0;
while i<filesize(f)-k do
 begin
  seek(f,i);
  read(f,x);
  if max(x)=mx then
   begin
    k:=k+1;
    for j:=i to filesize(f)-k-1 do
     begin
      seek(f,j+1);
      read(f,y);
      seek(f,j);
      write(f,y);
     end;
    seek(f,filesize(f)-k);
    write(f,x);
   end;
  i:=i+1;
 end;
writeln('Компонеты с макс. модулем в конец:');
writeln('Макс. модуль':n*5+12);
seek(f,0);
while not eof(f) do
 begin
  read(f,x);
  for i:=1 to n do
  write(x[i]:5);
  writeln(max(x):7);
 end;
close(f);
readln
end.

uses crt;
//множество всех согласных букв русского алфавита
const sgl=['Б','б','В','в','Г','г','Д','д','Ж','ж','З','з','Й','й','К','к',
           'Л','л','М','м','П','п','Р','р','С','с','Т','т','Ф','ф','Х','х',
           'Ц','ц','Ч','ч','Ш','ш','Щ','щ'];
var f:text;
    c:char;
    m:set of char;
begin
assign(f,'text.txt');
reset(f);
m:=[];//множество согласных, которые ксть в файле
while not eof(f) do
read(f,c);
if c in sgl then m:=m+[c];
close(f);
writeln('Согласные буквы, которых нет ни в одном слове:');
m:=sgl-m;//вычитаем из полного множества, те что есть
if m=[] then write('Таких букв нет')
else
 begin
  for c:='Б' to 'щ' do
  if c in m then write(c);
 end;
end.