Определить, сколько различных литер входит в заданный текст, содержащий не более 100 литер и оканчивающийся точкой (в сам текст точка не входит) — Pascal(Паскаль)

uses crt;
var c:char;
    i,k:byte;
    m:set of char;
begin
clrscr;
writeln('Введите текст не более 100 символов, оканчивающийся точкой.');
i:=0;//количество всех символов
k:=0;//количество разных
m:=[];//пустое множество
repeat//повторять пока
c:=readkey;//читаем символ нажатой клавиши
write(c);//выводим на экран
i:=i+1;//считаем
if not(c in m)and(c<>'.') then//есле его еще нет в множестве и это не точка
 begin
  k:=k+1;//считаем
  m:=m+[c];//включаем в множество
 end;
until(c='.')or(i=100);//пока не нажата клавиша точка или не 100 символов
writeln;
write('Количество различных символов в тексте=',k);
readln
end.