Проверить, можно ли из заданного набора букв составить заданное слово

var a:array[,]of char;
    s:string;
    n,m,i,j,k,p,q:integer;
begin
writeln('Введите размеры массива n,m');
readln(n,m);
setlength(a,n,m);
writeln('Введите в массив буквы ',n*m,' шт.');
k:=0;
for i:=0 to n-1 do
for j:=0 to m-1 do
 begin
  k:=k+1;
  write('буква ',k,'=');
  readln(a[i,j]);
 end; 
writeln('Массив букв');
for i:=0 to n-1 do
 begin
  for j:=0 to m-1 do
  write(a[i,j]:2);
  writeln;
 end;
writeln('Введите слово');
readln(s);
if length(s)>n*m then
 begin
  writeln('Это слово составить нельзя');
  exit;
 end;
q:=0;//фикстор несовпадения буквы
k:=1;//индекс первой буквы
while(k<=length(s))and(q=0)do//пока не конец слова и буквы есть в массиве
 begin
  i:=0;//в 1 строку массива
  p:=0;//буквы пока нет
  while(i<n)and(p=0) do//пока не все строки и нет буквы
   begin
    j:=0;//в начало строки
    while(j<m)and(p=0) do//пока не конец строки и нет буквы
    if a[i,j]=s[k] then p:=1//если буква встретилась, фиксируем и дальше не ищем
    else j:=j+1;//иначе дальше
    if p=1 then a[i,j]:=#0//если нашли заменяем в массиве на пустое место
    else i:=i+1;//если в этой строке не нашди, к следующей 
   end;
  if p=1 then k:=k+1//если эту букву нашли, к следующей 
  else q:=1;//если не нашли, слово составить нельзя
 end;
if q=0 then writeln('Слово составить можно') 
else writeln('Слово составить нельзя') 
end.