Написать программу, проверяющую, можно ли из русских букв составить данное слово S - Pascal

var
  a:array[1..100,1..100] of char;
  s,sr:string;
  b:boolean;
  i,j,k,n,m:integer;
begin
  write('n=');readln(n);
  write('m=');readln(m);
  writeln('Введите массив a[',n,',',m,'] по строкам');
  for i:=1 to n do begin
    for j:=1 to m do read(a[i,j]);
    readln;
  end;
  write('Введите слово:');readln(s);
  for k:=1 to length(s) do begin
    b:=false;
    for i:=1 to n do
      for j:=1 to m do
        if not b then if a[i,j]=s[k] then begin
          b:=true;
          sr:=sr+a[i,j];
          a[i,j]:=#0;
         end;
    end;
    if s=sr then writeln('можно') else writeln('нельзя');
  readln;
end.