[Trosh]

Код:

// Вывод результата
  WriteLn('Числа по убыванию кол-ва:'
  For I := Low(A) To High(A) Do
    WriteLn(Format('Число %d встречяается %d раз',[A[i].Value,A[i].Count]));
end;

Где я выделил жирным в конце нужна скобка с точко запитой ?