Задача по паскалю

[dim78]

Здравствуйте. Будьте добры помочь с задачей.

По результатам опроса прошлого года известен список 10 политических деятелей в порядке убывания их популярности. Проведен новый опрос. Каждый из N журналистов (N - заданное число) назвал три различные фамилии из этого списка. Требуется получить новый список в порядке убывания популярности политических деятелей и показать место, которое занимал каждый деятель в предыдущем опросе. Предусмотреть проверку: каждый их опрошенных журналистов называл разные фамилии и только из имеющихся в старом списке.

Вот что смог только сделать:

var x:array [1..3] of string;
n: array [0..9] of string;
i:integer;

begin
n[0]:='Сидоров';
n[1]:='Петров';
n[2]:='Иванов';
n[3]:='Смирнов';
n[4]:='Хрущев';
n[5]:='Столыпин';
n[6]:='Ереванов';
n[7]:='Булкин';
n[8]:='Берд';
n[9]:='Измайлов';


for i:=0 to 9 do  begin
writeln(n[i]);
end;
writeln;
writeln('Введите буквы: ');

for i:=1 to 3 do begin
read(x[i]);

end;
writeln;
writeln('Результат: ');
begin
if (x[1]=n[random(1)]) or (x[2]=n[random(1)]) then
for i:=3 to 9 do
writeln(n[i]);
end;
end.