Определить, являются ли два слова анаграммами

var s1, s2: string;
 
function is_anagram(s1, s2: string): boolean;
var a1, a2: array [0..255] of byte; i: word; res: boolean;
begin
for i := 0 to 255 do begin
     a1[i] := 0;
     a2[i] := 0;
end;
 
for i := 1 to length(s1) do
     a1[ord(s1[i])] := a1[ord(s1[i])] + 1;
 
for i := 1 to length(s2) do
    a2[ord(s2[i])] := a2[ord(s2[i])] + 1;
 
res := true;
 
for i := 0 to 255 do
    if a1[i] <> a2[i] then begin
        res := false;
        break;
    end;
 
is_anagram := res;
end;
 
begin
readln(s1);
readln(s2);
if is_anagram(s1, s2) then write('they are')
else write('they aren''t');
readln;
end.

for i := 1 to n - 1 do
        for j := i + 1 to n do
        if length(s[i]) = length(s[j]) then
                if is_anagram(s[i], s[j]) then begin
                        r[l] := s[i];
                        r[l+1] := s[j];
                        Inc(l,2);
                        {add_word(r, l, s[i]);
                        add_word(r, l, s[j]);}
                end;

for i := 1 to l do if a[i] = s then goto no_need;

for i := 1 to n - 1 do
        for j := i + 1 to n do

Uses Windows;
begin
    writeln(gettickcount);
end.