Массивы

[Joney_Hell]

Привет всем.
Вот задачка помогите решить(Введите массив из 20 элементов и определите, есть ли в нем элементы с одинаковыми значениями.)
Я начал решать вот код
program qwe;
const
q=20;
var
a:array[1..q] of integer;
i,k,n,m,p :integer;
begin
for i:=1 to q do
a[i]:=random(10);
for i:=1 to q do
write(a[i],',');
m:=0;
for p:=2 to q do begin
for i:=p to q do begin
if a[i]=a[i+1] then begin
n:=a[i];
a[i]:=a[i+1];
a[i+1]:=n;

end; m:=m+1;
end; end;
writeln;
writeln;
for i:=1 to q do
write(a[i],',');

end.

выдает ошибку помогите кто может

[Joney_Hell]

Сообщение от Joney_Hell

Привет всем.
Вот задачка помогите решить(Введите массив из 20 элементов и определите, есть ли в нем элементы с одинаковыми значениями.)
Я начал решать вот код
program qwe;
const
q=20;
var
a:array[1..q] of integer;
i,k,n,m,p :integer;
begin
for i:=1 to q do
a[i]:=random(10);
for i:=1 to q do
write(a[i],',');
m:=0;
for p:=2 to q do begin
for i:=p to q do begin
if a[i]=a[i+1] then begin
n:=a[i];
a[i]:=a[i+1];
a[i+1]:=n;

end; m:=m+1;
end; end;
writeln;
writeln;
for i:=1 to q do
write(a[i],',');

end.

выдает ошибку помогите кто может

Решено все спасибо