Нужно из 5 букв составить все возможные слова и сравнить их со "словарем"

Program P30;
 
const m = 5;
 
var Word   : Array[1..m] of integer;
var Stri   : String;
Var i,j,n  : integer;
 
Procedure words(n : integer; l: integer);
var i,j,k : integer;
 
Begin
 
     for i:=1 to l Do Word[i]:=1;
     
     While(True) Do Begin
     
         for i:=1 to l Do write(Stri[Word[i]]);
         writeln;
         
         k:=1;
         
         While(True) Do Begin
            if (k > l) then break;
            if (Word[k] < n) then Begin
               Word[k]:=Word[k]+1;
               break;
            end
            Else Begin
               Word[k]:=1;
               k:=k+1;
            End;
         End;
         if (k > l) then break;
     End;
 
End;
 
Begin
 
     Stri:='qwert';
     n:=length(Stri);
 
     for i:=1 to m Do Words(n,i);
 
End.

const n=5;
type mas=array[1..1000] of string; //массив всех возможныз слов
var  s:string;//исходное слово
     a:array [0..n] of integer;//массив для генерации подмножеств
//функция генерации подмножеств
function next_pdm:string;
var s1:string;
    i:byte;
begin
i:=n;
while a[i]=1 do
 begin
  a[i]:=0;
  dec(i);
 end;
inc(a[i]);
s1:='';
for i:=1 to n do
if a[i]=1 then s1:=s1+s[i];
next_pdm:=s1;
end;
//генерация перестановок
procedure next_per(s1:string;l,r:integer;var b:mas;var m:integer);
var i:integer;
    v:char;
begin
if (l=r) then
 begin
  m:=m+1;
  b[m]:=s1;
 end
else
 begin
  for i:=l to r do
   begin
    v:=s1[l];
    s1[l]:=s1[i];
    s1[i]:=v; {обмен s1[i],s1[l]}
    next_per(s1,l+1,r,b,m); {вызов новой генерации}
    v:=s1[l];
    s1[l]:=s1[i];
    s1[i]:=v; {обмен s1[i],s1[l]}
   end;
  end;
end;
//печать массива
procedure print(b:mas;m:integer);
var i:integer;
begin
for i:=1 to m do
writeln(b[i]);
end;
var s1,s2:string;
    b:mas;
    i:byte;
    m:integer;
begin
s:='qwert';
for i:=1 to n do
a[i]:=0;
a[n]:=1;
while a[0]=0 do
 begin
  s1:=next_pdm;
  next_per(s1,1,length(s1),b,m);
 end;
print(b,m);
end.