Задача на массивы Опции

[Tatjanka]

Помогите пожалуйста решить задачи.
Вот одна из них:

Дан числовой массив А(35). Найдите, в массиве есть пара одинаковых чисел. Сколько одинаковых чисел, если они есть?

[ShadowWatcher]

Согласен.

Код

Type
TNum=Record
  Number:Integer;
  Count:Integer
End;

Var
Data:Array[1..35] Of TNum;
i,j,n:Integer;
Begin
Randomize();
For i:=1 To 35 Do
Begin
  Data[i].Number := Random(10);
  Data[i].Count := 1;
End;
For i:=1 To 34 Do
Begin
  If Data[i].Count = 0 Then
    Continue;
  For j:=i+1 To 35 Do
    If (Data[i].Number=Data[j].Number) Then
    Begin
      Inc(Data[i].Count);
      Data[j].Count := 0
    End
End;
n:=0;
For i:=1 To 35 Do
  If Data[i].Count > 1 Then
    Inc(n);
WriteLn('Totally ',n,' non-single numbers')
End.