Написать программу по обработке sms-голосования

program qq;
var k:array[1..10] of longint;
    film:array[1..10000] of string[100];
    i,j,n,m:integer;
    begin
    read(n);
    for i:=1 to n do readln(film[i]);
    for j:=1 to 10 do k[j]:=1;
    i:=1;
    m:=1;
    repeat
    for j:=i+1 to n do 
    if (film[i]<>'')and(film[i]=film[j])then 
                                          begin 
                                          k[m]:=k[m]+1; 
                                          film[j]:='';
                                          end;
    film[m]:=film[i];                                      
    i:=i+1;
    if film[i]<>'' then m:=m+1
    until i=n;
    writeln('-------------------');
    for i:=1 to m do writeln(film[i],' ',k[i]);
    end.

program qq;
uses crt;
const k=10; //количество названий фильмов
type flm=record //тип элементов массива-запись
         naz:string[100];//название
         kol:integer;//количество
         end;
var film:array[1..k] of flm;//массив
    i,j,n,m:integer;
    x:flm; //переменная для сортировки
    s:string[100];//переменная для ввода названий
    f:boolean;//логическая переменная для сравнения
begin
repeat
write('Количество Sms n>0 n=');
read(n);
until n>0;
writeln('Введите содержания сообщений');
readln(film[1].naz);//читаем первое
film[1].kol:=1;
if n=1 then
 begin
  writeln('Список фильмов в порядке убывания рейтинга');
  write(film[1].naz,' ',film[1].kol);
  exit;
 end;
m:=1;
for i:=2 to n do //остальные
 begin
  readln(s);
  f:=true; //проверим было уже или нет
  j:=1;
  while(j<=m)and f do
  if s=film[j].naz  then f:=false
  else j:=j+1;
  if f then//если не было
   begin
    m:=m+1;//добавим
    film[m].naz:=s;
    film[m].kol:=1;
   end
  else inc(film[j].kol);//было, добавим количество
 end;
 //сортировка по убыванию количества
for i:=1 to m-1 do
for j:=i+1 to m do
if film[i].kol<film[j].kol then
 begin
  x:=film[i];
  film[i]:=film[j];
  film[j]:=x;
 end;
 //вывод
writeln('Список фильмов в порядке убывания рейтинга');
for i:=1 to m do
writeln(film[i].naz,' ',film[i].kol);
end.