Дана строка текста слова разделены одним пробелом напечатать буквы входящие а)в исходный текст только один раз б) входящий в исходный текст не менее двух раз

А)
var   s:string;   mas:array [a..z] of longint;{индексы элементов соответствуют латинице}   c:char;   i:longint;begin     read(s);     for c:=a to z do{заполнение нулями элементов массива, для запоминания количестваэлементов в латинице}         mas[c]:=0;     for i:=1 to ord(s[0]) do{пробегаем по всей строкеord(s[0]) это количесвто элементов в строке (только паскаль)}         mas[s[i]]:=mas[s[i]]+1;     for c:=a to z do{пробегаем по массиву значений и выводим только неповторяющиеся}         if(mas[c]=1) then                      writeln(c);end.