множества

[zxzxz]

Дан текст из строчных латинских букв за которыми следует точка.Напечатать все согласные буквы которые не входят Ни в одно из слов

[Вадим Мошев]

В чём у вас сложность?

[zxzxz]

program ex;
 uses crt;
 type mn=set of 'a'..'z';
 var
   mn1,mn2:mn;
   b,d:char;
   s:string;
   n,i:integer;
begin
  clrscr;
  mn1:=[];mn2:=[];
  n:=0;
   WRITE('введите текст ');
  read(s);
 for i:=1 to length(s) do  begin
    b:=s[i];
    mn1:=mn1+[b];end;
 for d:='a' to 'z' do
    if d in mn1 then else mn2:=mn2+[d];
 for d:='a' to 'z' do
   if d in mn2 then begin write(d:3);n:=n+1;end;
   if n=0 then writeln('нет');
end.

помогите пожалуйста через процедуру сделать

[zxzxz]

program z8;
 uses crt;
 type mn=set of 'a'..'z';
 var
   mn1,mn2:mn;
   b,d:char;
   s:string;
   n,i:integer;
procedure Qq(s:string);
begin
  clrscr;
  mn1:=[];mn2:=[];
  n:=0;
 for i:=1 to length(s) do  begin
    b:=s[i];
    mn1:=mn1+[b];end;
 for d:='a' to 'z' do
    if d in mn1 then else mn2:=mn2+[d];
 for d:='a' to 'z' do
   if d in mn2 then begin write(d:3);n:=n+1;
   end;

   end;
   begin
    WRITE('введите текст ');
  read(s);  if n=0 then writeln('нет');
end.

не знаю как главную программу оформить

[BDA]

program ex;
uses crt;

type
  mn = set of 'a' .. 'z';

var
  a: string;

procedure q(const s: string);
var
  mn1, mn2: mn;
  b, d: char;
  n, i: integer;
begin
  mn1 := [];
  mn2 := [];
  n := 0;
  for i := 1 to length(s) do
  begin
    b := s[i];
    mn1 := mn1 + [b];
  end;
  for d := 'a' to 'z' do
    if d in mn1 then
    else
      mn2 := mn2 + [d];
  for d := 'a' to 'z' do
    if d in mn2 then
    begin
      write(d:3);
      n := n + 1;
    end;
  if n = 0 then
    writeln('нет');
end;

begin
  clrscr;
  WRITE('введите текст ');
  read(a);
  q(a);
  readln;
end.