Массивы. Множества.

[meta]

Помогите, пожалуйста, с Pascal-программой.

вот условие (мне саму реализацию проги надо, не алгоритм):

С клавиатуры по одному ввести набор слов, из которых сформировать массив string-ов. Определить, есть ли среди введенных слов такие, которые состоят из тех же букв, что и первое слово. Сформировать предложение с таких слов, в котором первым должно быть прежде введенное слово, каждое следующее слово отделить одним символом пропуска. Подсказка: для проверки слов воспользоваться множествами букв этих слов.

[Ponkole]

Если не трудно оцени мою работу +ом и комментарием

uses CRT;
var a:array [1..100] of string;
     b:array [1..100, 1..26] of byte;
    n,i,j:integer;
begin
clrscr;
writeln('введите количество слов');
readln(n);
for i:=1 to n do begin
readln(a[i]);
for j:=1 to length(a[i]) do
if a[i,j] in ['А'..'Я'] then b[i,ord(a[i,j])-ord('А')+1]:=1 else
if a[i,j] in ['а'..'я'] then b[i,ord(a[i,j])-ord('а')+1]:=1;
end;
writeln;
for i:=1 to n do
if b[i]=b[1] then write(' ', a[i]);
write('.');
end.

если тебе нужно чтобы количества букв повторялись в словах то вместо

... 
if a[i,j] in ['А'..'Я'] then b[i,ord(a[i,j])-ord('А')+1]:=1 else
if a[i,j] in ['а'..'я'] then b[i,ord(a[i,j])-ord('а')+1]:=1;
...

напиши:

... 
if a[i,j] in ['А'..'Я'] then inc(b[i,ord(a[i,j])-ord('А')+1]) else
if a[i,j] in ['а'..'я'] then inc(b[i,ord(a[i,j])-ord('а')+1]);
...

_____________________
набери в поисковике моё имя и ты узнаешь кто я такой

[meta]

хм.. а где же вводить слова, о которых идет речь?

[Pein95]

хм... а как нащет головой подумать???)

[meta]

за этим и обращаюсь на форум программистов, где могут помочь, ибо сам плохо шарю в этом. спасибо.