Дано слово. Удалить из него все повторяющиеся буквы, оставив их первые вхождения, т.е. В слове должны остаться только разные буквы. Программа Паскаль

var s:string; i:integer; m:set of char;beginwriteln('Введите слово:');readln(s);m:=[];i:=1;while i<=length(s) do if s[i] in m then delete(s,i,1) else begin m:=m+[s[i]]; i:=i+1; end;writeln(s);end.Пример:Введите слово:электрификацияэлектрифаця