Типизированные файлы

[Robot01]

Помогите пожалуйста с задачей не понимаю как решать ее дальше??
Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел.Занести в файл q те компоненты файла f, которые встречаются в файле более одного раза.

const n=10;
var f,q:file of integer;
    i,j,a,b,k:integer;
begin
assign(f,'text1');
assign(q,'text2');
rewrite(f);
rewrite(q);
for i:=1 to n do
begin
a:=random(10);
write(a,' ');
write(f,a);
end;
writeln;
reset(f);
read(f,a);
write(q,a);
while not eof(f) do
begin

[Poma][a]

Заводишь массив от 0 до 9. Забиваешь его нулями. Бежишь по f. Читаешь по 1-му числу(t) и увеличиваешь значение элемента массива с индексом t на 1-ку.
Потом бежишь по массиву.. и выводишь индексы, значения элементов которых > 0.