Anagram

program anagram;
var input : array[1..2] of string;
    output : array[1..2] of string;
    i, a, b: integer;

    procedure Turnlowercase(inp:string; var output:string);
    begin
      output := LowerCase(inp);
    end;

    procedure Cleanstring(inp:string; var output:string);
    begin
      a := length(inp);
      for i := 1 to a do
      begin
        if(inp[i]>='a')and(inp[i]<='z') then
          output := concat(output,inp);
      end;
    end;

    procedure CheckAnagram;
    var check : Boolean;
        temp : char;
    begin
      if length(output[1]) = length(output[2]) then
        begin
          for a := 1 to 2 do
            for i := 1 to length(output[a]) do
              begin
              if output[a][i]<output[a][i+1] then
                temp := output[a][i];
                output[a][i] := output[a][i+1];
                output[a][i+1] := temp;
              end;

          for a := 1 to length(output[1]) do
            begin
            check := true;
            for b := 1 to length(output[2]) do
              begin
              if not (output[1][a] = output[2][b]) then
                check := false;
              end;
            end;

         if check then
           writeln(input[1],' and ',input[2],' are anagram.');
         if not check then
           writeln(input[1],' and ',input[2],' are not anagram.');
         end;

       if not length(input[1]) = length(input[2]) then
         writeln(input[1],' and ',input[2],' are not anagram.');
    end;

begin
    for i := 1 to 2 do
    begin
      write('Enter one word:');
      readln(input[i]);
    end;

    for i := 1 to 2 do
    begin
      Turnlowercase(input[i],output[i]);
      CleanString(output[i],output[i]);
      CheckAnagram;
    end;

    readln();
end.