где тут неверно??:((помогите(

[BumBum4ik]

var
    file_r: file of real;
    file_i: file of integer;
    file_t: text;
    i, n: integer;
    a: integer;
 
begin
    assign(file_r,'c:/rfile.txt');
    assign(file_i,'c:/ifile.txt');
    assign(file_t,'c:/tfile.txt');
 
    rewrite(file_r);
    rewrite(file_i);
    rewrite(file_t);
 
    write('n=');
    readln(n);
    for i := 1 to n do
   a[i] = Random(100);

cnt := 0;
for i := 1 to n-1 do
   for j := i+1 to n do
       if a[i] = a[j] then Inc(cnt);

WriteLn (f, cnt)
 end;
    close(file_r);
    close(file_i);
    close(file_t);
 
readln
end.

вот такое задание:задание звучит так,:составить программу с процедурами:
в типизированный файл подсчитать колличество попарно одинаковых элементов.
элементы сами придумуются,неважно какого типа

[Poma][a]

1) сnt не объявлен..
2) зачем вам 3 файла?
3) в какой из этих трех файлов Вы планируете записать число?
4) f - не объявлен