Массивы

[Snord]

Помогите пожалуйста с задачей:
Задана символьная матрица размером NxM. Определить k - количество различных элементов матрицы (т.е. повторяющиеся элементы считать один раз).
Буду очень признателен.

[SunKnight]

k:=0;
for i:=0 to n do
begin
for j:=0 to m do
if MAS[i]<>MAS[j] then KOL:=KOL+1;
end;

Помойму так(писал без делфы)

[B_N]

const
    N           = 20;
    M           = 50;
var
    flags       : array [0 .. 255] of boolean;
    chars       : array [1 .. N, 1 .. M] of char;

    i, j, k     : cardinal;
begin
    randomize;
    for i := 0 to 255 do flags[i] := false;
    for i := 1 to N do for j := 1 to M do chars [i][j] := chr(random(256));

    for i := 1 to N do for j := 1 to M do flags [ ord(chars[i][j]) ] := true;

    k := 0;
    for i := 0 to 255 do if flags[i] then inc(k);

    writeln('k=', k);
    readln;
end.