Ошибка в множестве

[Black_butterfly]

Доброго времени суток!

Из множества латинских букв выделить множество состоящее из символов не входящих в множество символов составляющих ваше имя. Вывести это множество на экран.

Program MyProg2;
type
k='a'..'z';
var
mn,m:set of k;
i,l:integer;
ch:char;
begin
writeln('Введите текст,заканчивающийся точкой');
m:=[];
Read(ch);
While ch<> '.' do begin m:=m+[ch]; read(ch);end;
writeln('Введите cвое имя и поставьте точку');
mn:=[];
Read(ch);
for l:=1 to 256 do
if chr(l) in m-mn then
Write(chr(l));
end.

Исправьте, пожалуйста, ошибку)

[GetMax]

writeln('Введите cвое имя ');
mn:=[];
Read(ch);

Где же это вы видели имя из одной буквы? Для ввода имени целесообразно использовать тип String, а потом уж заносить символы в множество. И цикл лучше использовать Repeat Until, а не While. Вообщем как то так должно быть

type
k='a'..'z';
var
  mn,m:set of k;
  i,l:integer;
  ch:char;
  st:String;
begin
  writeln('Введите текст,заканчивающийся точкой');
  m:=[];
  Repeat
    Readln(ch);
    m:=m+[ch];
  Until ch = '.';
  writeln('Введите cвое имя и поставьте точку');
  Readln(St);
  mn:=[];
  For i:=1 to Length(St) do
  Include(mn,st[i]);
  for l:=1 to 256 do
  if chr(l) in m-mn then Write(chr(l));
  Readln
End.