Не могу написать правильный алгоритм

var nam: array[1..10] of string;
mas: array[1..10] of integer;
i,n,j,z:integer;
stk:string;
begin
readln(n);
for i:=1 to n do
 begin
 readln(stk);
 j:=1;
 z:=0;
 {s} repeat 
 if (stk=nam[j]) and (stk<>'') then
  begin
  mas[j]:=mas[j]+1;
  z:=1; 
  end else
 if (nam[j]='') and (stk<>'') then
  begin
  nam[j]:=stk;
  mas[j]:=1;
  z:=1;
  end else
 j:=j+1;
 {e} until z=1;
 end; 
 
writeln(nam[1],' ', mas[1]);
writeln(nam[2],' ', mas[2]);
writeln(nam[3],' ', mas[2]);
writeln(nam[4],' ', mas[2]);
writeln(nam[5],' ', mas[2]);
end.

var
  /// Массив названий
  nam: array[1..10] of string;
  /// Количества голосов по фильмам
  mas: array[1..10] of integer;
  /// Кол-во/номер голоса
  i, n: integer;
  /// Индекс фильма в массиве
  j: integer;
  /// ???
  z: integer;
  /// Временная переменная для считывания названия
  stk: string;
 
begin
  readln(n);
  for i := 1 to n do
  begin
    readln(stk);
    j := 1;
    z := 0;
    // Цикл: прокатить по массиву, пока не наткнёмся на совпадение или конец
    // Я бы вместо z:=1 использовал break, так лишняя переменная и в принципе некрасиво
    repeat
      // Если совпадение
      if (stk = nam[j]) and (stk <> '') then
      begin
        mas[j] := mas[j] + 1;
        z := 1; 
      end else
      // Иначе если конец
      if (nam[j] = '') and (stk <> '') then
      begin
        nam[j] := stk;
        mas[j] := 1;
        z := 1;
      // Иначе идём дальше
      end else
        j := j + 1;
    until z = 1;
  end; 
  // Сортировка и вывод
  // N раз пройдём по массиву, каждый раз вычисляя самый популярный фильм,
  // убирая его, и начиная сначала
  repeat
    j:=-1; // Макс. значение
    z:=-1; // Его индекс
    for i:=1 to n do
    if nam[i]<>'' then
      if mas[i]>j then
      begin
        j:=mas[i];
        z:=i;
      end;
    if j=-1 then break;
    writeln(nam[z],' ',mas[z]);
    nam[z]:='';
  until False
end.