Строки!

[meta]

Pascal.
с клавиатуры вводятся по одному набор слов, с которых формируется массив string. Нужно определить, есть ли среди введенных слов такие, которые состоят из тех же букв, что и первое слово.
Вот у меня и запара. Как сравнить буквы слов, которые в одном массиве?

[Z1000000]

program lab;
var
 a : array [1..10] of String;
 i,j : Integer;
 flag : Boolean;
begin
for i:= 1 to 5 do
 read(a[i]);

writeln('Нужные слова:')
for i:= 2 to 5 do
 begin
 flag := True;
 for j:= 1 to length(a[i]) do
  if pos(a[i][j],a[1]) = 0 then begin flag := False; break; end;
 if flag = True then
  writeln(a[i]);
 end;
end.