Файлы. Pascal

[Kind1]

program file1;
var
F:file of integer;
A:array[1..20] of integer;
i,x,n,j,s,rep:integer;
begin
s:=0;
assign(f,'C:\Pascal\f1.dat');
rewrite(f);
writeln('Введите число компонент файла');
readln(n);
writeln('Введите компоненты файла');
for j:=1 to n do
begin
readln(x);
write(f,x);
end;
Close(f);
i:=1;
reset(f);
While Not(Eof(f)) do
begin
Read(F,x);
A[i]:=X;
i:=i+1;
end;
close(f);
Writeln('Содержимое файла:');
for i:=1 to n do
write(A[i]:5);
i:=1;
reset(f);
for j:=1 to n do
begin
Seek(F,j);
rep:=0;
While Not(Eof(f)) do
begin
Read(F,X);
if X=A[i] then rep:=1;
end;
i:=i+1;
if rep=0 then s:=s+1;
end;
writeln;
writeln('Количество различных компонент = ',s);
readln;
end.