Определить количество букв

[bratello41]

Сделайте пожалуйста задачу....последняя по практике =\ буду очень признателен.

Дано n предложений. Определить для каждого предложения количество букв, не повторяющихся в предложении и относящихся к символам русского алфавита.

[RUSt88]

могу выполнить за вознаграждение

[Stilet]

Ну и че тут сложного то?

var a:array['а'..'я'] of integer;
  i:integer;
const s='привет мир';
begin
 writeln(s);
 for i:=1 to length(s) do  inc(a[s[i]]);
 for i:=1 to length(s) do  if a[s[i]]=1 then write(s[i]);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[bratello41]

Спасибо большое))