Задана последовательность, содержащая n целых чисел

Program Talean;
{ Сделано подержкой wmmagazin.com }
type ds = array[0..6500] of word;
     br = array[0..6500] of word;
     coun = array[0..6500] of word;
var F,G:TEXT; a:integer; d:ds; b:br; count : coun; nr, i, j, k, n:1..3200;
 
begin
assign(F, 'in.txt');
reset(F);
while not eoln(F) do
      begin
           read(F, nr);
      end;
readln(F);
i:=1;
while not eoln(F) do
      begin
           read(F, d[i]);
           i := i+1;
      end;
close(F);
for k:=1 to nr do
begin
count[k]:=0;
for j:=1 to nr do
    begin
    if k<>j then
    if d[k]=d[j] then count[k]:=count[k]+1;
    end;
end;
a:=count[1];
for i:=1 to nr-1 do
    begin
    if a<count[i+1] then
       begin
         a:=count[i+1]; n:=i+1;
       end;
    end;
k:=1;
for i:=1 to nr-1 do
    begin
    if d[i]<>d[n] then
       begin
            b[k]:=d[i];
            k:=k+1;
       end;
    end;
for i:=nr-a to nr do b[i]:=d[n];
 
assign(G, 'out.txt');
rewrite(G);
 
      for i:=1 to nr do write(G, b[i], ' ');
      writeln(G);
      readln;
      close(G);
 
 
close(G);
 
readln;
end.

Program Talean;
{ Сделано подержкой wmmagazin.com }
type ds = array[0..6500] of word;
     br = array[0..6500] of word;
     coun = array[0..6500] of word;
var F,G:TEXT; a:integer; d:ds; b:br; count : coun; nr, i, j, k, n:1..3200;
 
begin
Writeln('Вводите nr=');
readln(nr);
writeln('вводите цифры:');
for i:=1 to nr do readln(d[i]);
for k:=1 to nr do
begin
count[k]:=0;
for j:=1 to nr do
    begin
    if k<>j then
    if d[k]=d[j] then count[k]:=count[k]+1;
    end;
end;
a:=count[1];
for i:=1 to nr-1 do
    begin
    if a<count[i+1] then
       begin
         a:=count[i+1]; n:=i+1;
       end;
    end;
k:=1;
for i:=1 to nr-1 do
    begin
    if d[i]<>d[n] then
       begin
            b[k]:=d[i];
            k:=k+1;
       end;
    end;
for i:=nr-a to nr do b[i]:=d[n];
 
for i:=1 to nr do write(b[i], ' ');
 
readln;
end.