Pascal/Turbo Pascal - ANAGRAMA EN PASCAL

ESCRIBIR UN PROGRAMA EN PASCAL QUE DETERMINE SI DOS PALABRAS son ANAGRAMAS una de la otra.Escribir las declaraciones de tipo que considere necesarias.
SUPONERque todas las letrasde la palabra estan en mayusculas.

{Esto es lo que querías }

program anagra;
uses
crt;
type
string10 = string[10];

var
palabra1, palabra2 : string10;
tama, i, k : integer;
respu : string10;

procedure entradas;
var
am : integer;
begin
clrscr;
gotoxy(4,2);write('**** Entre la 2 Palabras [Maximo 10 Letras] ****');
gotoxy(4,4);write('Palabra 1 : ');
gotoxy(16,4);readln(palabra1);
gotoxy(4,5);write('Palabra 2 : ');
gotoxy(16,5);readln(palabra2);
for am := 1 to length(palabra1) do
begin
palabra1[am] := upcase(palabra1[am]);
end;
for am := 1 to length(palabra2) do
begin
palabra2[am] := upcase(palabra2[am]);
end;
end;

function sonanagramas(de, ne : string10) : boolean;
var
t, lon : integer;
begin
fillchar(respu,11,' ');
respu[0] := chr(10);
sonanagramas := false;
tama := length(de);
lon := length(ne);
if tama = lon then
begin
t := 1;
for i := 1 to tama do
begin
for k := 1 to lon do
begin
if de[i] = ne[k] then
begin
respu[t] := ne[k];
respu[0] := chr(t);
t := t + 1;
ne[k] := ' ';
end;
end;
end;
if de = respu then
sonanagramas := true;
end
else
begin
sonanagramas := false;
end;
end;


begin
clrscr;
entradas;
clrscr;
write(sonanagramas(palabra1, palabra2));
writeln;
writeln('[* ',palabra1,' *] ',palabra2,' = ',respu);
readln;
end.