Строка: Найти с помощью процедуры в словаре все анаграммы...

{ Задаётся словарь. Найти в нём все анаграммы
(слова составленные из одних и тех же букв).}
uses crt;
 
var
  a, b: array[1..30]of string;
  alf, sl1, sl2: string;
  i, j1, j2, n, fl: integer;
 
begin
  clrscr;
  write('n='); readln(n);
  for i := 1 to n do
  begin
    write(i, '-ое слово:'); readln(a[i]);
  end;
  alf := ('1234567890абвгдеёжзийклмнопрстуфхцчшщъыьэюя');
  for i := 1 to n do
  begin
    sl1 := a[i]; sl2 := '';
    for j1 := 1 to 33 do
      for j2 := 1 to length(sl1) do
        if alf[j1] = sl1[j2] then begin
          sl2 := sl2 + sl1[j2];
        end;
    b[i] := sl2;
  end;
  i := 1;
  while i <= n - 1 do
  begin
    j1 := i + 1;
    if fl = 1 then writeln; fl := 0;
    while j1 <= n do
    begin
      if b[i] = b[j1] then
        if fl = 0 then begin
          write(a[i], ' ', a[j1]); fl := 1;
          a[i] := ''; a[j1] := '';
        end
        else begin write(' ', a[j1]); a[j1] := ''; end; inc(j1);
    end;
    inc(i);
  end;
  readln;
end.