Строки и задачки с ними, запуталась, мож совет дадите Опции

[MapЫшKa]

И снова я, о, боги Паскаля. :molitva:
Сиду я тут и со своей женской логикой не могу врубиться в мужскую, а точнее в программистическую.

Дано: произвольная строка
Требуется:
1) проверить строку на наличие "{" и "}" символы заключенные между { и } удалить вместе со скобками
2) определить сколько различных русских букв содержит строка ( я ваще тут пас, говорят функция какая то есть специальная)
3) найти самое длинное слово в строке.

вот такая беда. Все бы было просто, вот тока вариантов строки моря, например:

vo sudu li v ogorode {v doline{na polane{v sadu?} ili za zana}ves}koj} hodat nes4astnie programmisti

сама придумала сама ее разобрать не могу, то ли надо удалять
{v doline{na polane{v sadu?} ili za zana}ves}koj}
или
{v doline{na polane{v sadu?} ili za zana}ves}
или
{v doline{na polane{v sadu?}

эх ну и назадают задачек....

[Altair]

определить сколько различных русских букв содержит строка

Думаю вот красивое решение на Паскале...

Код

var
ZRus:set of char;
PRus:set of char;
a:set of char;
s:string;
i,k:byte;
begin
zRus:=['А'..'Я']; pRus:=['а'..'я'];
readln(s);
for i:=1 to length(s) do  
  If ((s[i] in ZRus) or (s[i] in PRus)) and NOT (s[i] in a) then
         begin inc(k); INCLUDE(a,s[i]) end;
writeln(k);
end.

и 3 задача - найти слово макс. длинны.

Код

const
r=' '; {разделитель междду словами (пробел)}
var
s:string;
subs:string;
max:string;
i:byte;
begin
readln(s);
{удалим лишние разделители}
while s[1]=r do delete(s,1,1);
for i:=1 to ORD(s[0]) do if (s[i]=r) and (s[succ(i)]=r) then
begin
 while s[succ(i)]=r do delete(s,succ(i),1)
end;
while pos(r,s)<>0 do
begin
 subs:=copy(s,1,pos(r,s));
 delete(s,1,pos(r,s));
 If length(subs)>length(max) then max:=subs;
end;
writeln(max);
end.