Туплю уже, не могу решить

[Галенька]

Двумерный массив М х 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.

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

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

[Serge_Bliznykov]

1. КРОССПОСТ ЗАПРЕЩЁН

2. Тема должна отражать СУТЬ решаемой задачи!

3. Код нужно оформлять тегами.

ТЕМА ЗАКРЫТА