Массив МхN содержит буквы русского алфавита, расположенные хаотично. Нужна программа проверки, можно ли составить слово S (Delphi)

[Галенька]

Двумерный массив М х N содержит некоторые буквы русского алфавита, расположенные в произвольном порядке. Написать программу, проверяющую, можно ли из этих букв составить данное слово S.

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

Будьте так добры, помогите. Делфи

program Project1;

 {$APPTYPE CONSOLE}

 uses
 SysUtils;

 Function Kod(s:string):string;
 Var i,d:integer;
 Begin
 result:=s;
 d:=length(result);
 For i:=1 to d do begin
 if (result[i]>='р') and (result[i]<='я') then result[i]:=chr(ord(s[i])-16)
 else if (result[i]>='А') and (result[i]<='п') then result[i]:=chr(ord(s[i])-64)
 end;
 end;

 const n=3; m=2;
 Type Mas=array [1..n] of array [1..n] of char;

 Procedure VVod(out a:mas);
 Var i,j:integer;
 begin
 For i:=1 to n do
 for j := 1 to m do
 begin
 Write('A[',i,',',j,']='); readln(A[i,j])
 end;
 end;

 Procedure Proverka(var a:mas; var s:string);
 var k,j,i:integer; h:integer; s1,s2:string;
 begin
 s2:=s;
 for h := 1 to length(s) do
 begin
 s1:=copy(s,h,1);
 For i:=1 to n do
 begin
 For j:=1 to m do
 begin
 if s1=a[i,j] then Delete(s2,pos(a[i,j],s2),1);
 end;
 end;
 end;
 If s2=''then Writeln(Kod('Можно')) else Writeln(Kod('Нельзя'));
 end;

 Var a:mas; s:string;
 begin
 Vvod(a);
 Write(Kod('Введите слово, которое будем проверять : '));
 Readln(s);
 Proverka(a,s);
 readln;
 end.

[Базиля]

Так все же элементарно.
Есть много вариантов, как пример, попросту записывать в одномерный массив расположение очередной буквы, и при проверке следующей подходящей буквы, сверять по одномерному массиву - не является ли эта буква повторяющейся.
P.S. И зачем было создавать две одинаковые темы?

[Галенька]

мм... а какие еще варианты есть?.. по-проще..

p.s. - не могу удалить ту, не до этого пока что

[Serge_Bliznykov]

а не проще ли поступить так.
1) в цикле(ах) проходим по массиву и все имеющиеся в нём буквы собираем в одну строку.

2) берём поочерёдно буквы из слова S и проверяем их наличие в собранной строке. Если их там нет - выдаём сообщение - что нельзя составить и выходим из цикла. Если же буква найдена - удаляем её из строки.
Если цикл закончился - значит слово можно составить.
выглядит это всё в коде примерно так:

const n=3; m=2;
Type Mas=array [1..n] of array [1..m] of char;

procedure Proverka(var a: mas; s: string);
var i, j : integer;
    h: integer;
    sAllLetters : string;
    Mozno : boolean;
begin
  sAllLetters := '';
  for i := 1 to n do
    for j := 1 to m do
       sAllLetters := sAllLetters + a[i,j];

  Mozno := true;
  for h := 1 to length(s) do
  begin
     if Pos(s[h], sAllLetters)>0 then Delete( sAllLetters, Pos(s[h], sAllLetters), 1 )
     else begin
        Mozno := false;
        Break;
     end;
  end;

  if Mozno then Writeln(Kod('Можно')) else Writeln(Kod('Нельзя'));
end;