Разбор C4 репетиционного ЕГЭ (вариант 1)

const M=12;
var   a:array[1..M] of string; {названия}
  k:array[1..M] of longint; {кол-во запросов}
  n,i,j,na,t:longint;
  s:string;
begin
  na:=0;
  readln(n);
  for i:=1 to n do
  begin
    {строка-название заполняем в массив a
    в массив к приплюсовать 1 в нужный        элемент соответ строке-названию}
    readln(s);

    j:=1;
    while ((s<>a[j]) and (j<=na)) do j:=j+1;
    if j>na then begin
        a[j]:=s;
        na:=na+1;
           end;
    k[j]:=k[j]+1; {inc(k[j]);}
  end;
{сортировка----------------------}
for i:=1 to na do
  for j:=i to na do
    if k[j]<k[i] then
    begin
      t:=k[i]; k[i]:=k[j]; k[j]:=t;
      s:=a[i]; a[i]:=a[j]; a[j]:=s;
    end;
{вывод----------------------}
  i:=1;
  while (i<=na) and (i<=3)do
  begin
    writeln (a[i],' ',k[i]);
    inc(i);
  end;
end.