Помогите с задачей.(ПAскаль).

[stasig]

Дан массив строк. Определите строку, содержащую наибольшее количество разных букв.

[puporev]

Задача для новичка не самая простая, поэтому объясняю.
Поскольку в строке могуть быть не только буквы, создадим константу-множество все букв латинского и русского алфавитов. В русском алфавите символы строчных букв идут не по порядку, поэтому разрыв между п и р.
Далее создаем массив строк из произвольных символов, сколько не лень.
Потом в цикле просматриваем каждую строку. Если буква и еще не встречалась, считаем. В каком больше букв, то и надо.
Если разберешся в этой задаче, то похожие сам будешь решать.

uses crt;
const mn=['A'..'Z','a'..'z','А'..'Я','а'..'п','р'..'ё'];//множество букв
var s:array[1..20]of string;  //массив строк
    n,i,j,max,imax,k:integer;
    m:set of char; /множество для проверки одинаковых букв
begin
clrscr;
write('Количество строк=');
readln(n);
for i:=1 to n do
   begin
     write('str ',i,' :');
     readln(s[i]);
   end;
writeln;
max:=0;imax:=1;//начальные значения 
for i:=1 to n do
  begin
    m:=[];  //пустое множество
    k:=0;
    for j:=1 to length(s[i]) do
    if (s[i][j] in mn)and  not (s[i][j] in m) then //если буква и еще ее нет в нашем множестве, то
       begin
         m:=m+[s[i][j]];  //добавляем ее в множество
         k:=k+1;  //считаем
       end;
   if k>max then //если букв больше чем в предыдущих строках
      begin
       max:=k; //то это макс
       imax:=i; //запоминаем номер строки
      end;
  end;
writeln('Наибольшее количество разных букв в строке:');
write(s[imax],'=',max);  //выводим результат
readln
end.