Массив из русских букв Опции

[vanushka05]

program z3;
uses crt;
var
myArr : array [1..100,1..100] of string [1];
i,j,n,m:integer;
sym:char;
s:string;
begin
clrscr;

randomize;
writeln('число строк');
readln(n);
writeln('число столбцов');
readln(m);

for i := 1 to n do
begin
writeln;
for j:=1 to m do
begin
myarr[i,j]:=char(random(31)+128);
write(myarr[i,j]:4);
end;
end;
readln;

writeln('Введите слово');
READLN(S);


readln;
end.

Подскажите, пожалуйста, как написать программу, которая определяет можно ли из этих букв составить данное слово S?Массив состоит из строк, каждая строка из одного случайной буквы русского алфавита.

[klem4]

То есть есть набор символов и слово S и нужно опрежделить можно ли составить это слово используя этот набор символов ? Ну тогда можно вот так:

идешь по символам слова S, смотришь если символ S[i] есть в наборе, переходишь к следующему символу слова S (и возможно удаляешь этот символ из набора) иначе выходишь из цикла.

Если проверены все символы слова, то можно.