помогите с задачками

[J_o_h_n_]

1)
дан двумерный массив 5 на 5 символьного типа, найти количество различных символов



2)Дан текст из 60 литер.Напечатать только строчные русские буквы, входящие в этот текст

[Stilet]

2)Дан текст из 60 литер.Напечатать только строчные русские буквы, входящие в этот текст

Примерно так:

var s:string;i:byte;
begin readln(s);
for i:=1 to length(s) do if s[i] in ['a'..'z'] then write(s[i]);
readln;
end.

[alex_fcsm]

uses crt;
const n=5;
var a:array[1..n,1..n] of char;
    i,j:integer;
    M:set of char;
    count:byte;
begin
clrscr;
count:=0;
for i:=1 to n do
begin
 for j:=1 to n do
  begin
  a[i,j]:=chr(random(26)+65);
  write(a[i,j]:2);
  end;
 writeln;
end;
m:=[];
 for i:=1 to n do
  for j:=1 to n do
   if not (a[i,j] in m) then begin
                              m:=m+[a[i,j]];
                              inc(count);
                             end;
writeln(count);
end.

[J_o_h_n_]

хмммм чтото на первую задачку код не работает там в варе сет оф стоит это ведь множество, а нужен 2умерный массив ((( непашет

[alex_fcsm]

что за ошибка?
a:array[1..n,1..n] of char; - знаете что это?

[J_o_h_n_]

A:array[1..n,1..n] of char - это массив я не спорю а вот

M:set of char;-это Множество

так зачем мне множество в 2умерном массиве прога не будет нормально (правильно) работать.

[alex_fcsm]

Во множество записываются символы, которые встретились в матрице