типизированный файлы.

const
  size=15;
var
  a:array [1..size] of integer;
  f:file of integer;
  i,j,n,x,k,ok,buf:integer;
begin
  randomize;
  assign(f,'1.int');
  rewrite(f);
  n:=random(6)+10;
  writeln('Soderzhimoe faila:');
  for i:=1 to n do
    begin
      a[i]:=random(10)+1;
      write(f,a[i]);
      write(a[i]:4);
    end;
  writeln;
  writeln('Poryadkovye nomera chisel kratnyh 3:');
  for i:=1 to n do
    if a[i] mod 3=0 then
      write(i:4);
  writeln;
  {Poisk povtorov chisel}
  ok:=0;
  i:=1;  
  while i<=n do
    begin
      k:=0;
      for j:=i+1 to n do
        if a[i]=a[j] then
          inc(k);
      if k=0 then
        writeln(a[i],' net povtorov')
      else
        begin
          writeln('Kol-vo povtorov ',a[i],' = ',k);
          ok:=ok+k;
        end;
      x:=i;
      buf:=a[i];
      while x<=n do
        if a[x]=buf then
          begin
            for j:=x to n-1 do
              a[j]:=a[j+1];
            dec(n);
          end
        else
          inc(x);
    end;
  writeln('Obshee kolichestvo povtorov:',ok);
  close(f);
end.