Множества.(паскаль)Help plz

[pif]

Дан текст, состояший из слов, пробелов и знаков препинания(запятая, точка с запятой, двоеточие), завершаюшийся точкой. Найти множество начальных букв неоднобуквенных слов....помогите плиз

[alex_fcsm]

uses crt;
var s,s1,sub:string;
    i,j,m,n:integer;
    a:array[1..100] of string;
    Mn:set of char;
begin
clrscr;
Mn:=[];
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')or(s[i]=',')or(s[i]=':')or(s[i]=';')or(s[i]='.') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if s[i]<>'.' then sub:=sub+s[i];
until i=length(s);
inc(n);
a[n]:=sub;
writeln;

for i:=1 to n do
  if length(a[i])>1 then if not (a[i][1] in Mn) then Mn:=Mn+[a[i][1]];
end.

[pif]

спасиб огромное)