еще в delphi. тема массивы

[наташка-ромашка]

помогите решить пожалуйста
Японская радиокампания провела опрос N радиослушателей по вопросу « какое животное вы связываете с японией и японцами?» Составить программу получения к наиболее часто встречающимся ответам и их долей в процентах.

[Stilet]

А список ответов прилагается, или каждый волен вводить что угодно типа кудяпликов?

Если прилагается - то заведи массив записей

Животное=record Имя:String;Count:integer;end;

И массив этих животных. Наполни его, дав имена.
И попроси людей повыбирать. При выборе очередного животного увеличивай его Count. А потом отсортируй в порядке убывания.

Если же животных можно выдумывать то это гораздо сложнее.