Упорядочение данных и алгоритм поиска

[Vitalik1]

Пожалоста помогите. нужно разработать алгоритм и программу поиска наименьшего по численности населения города. не знаю как доделать

program naselena_mist;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  const
 var: misto: array [1..10] of real;
      naselena: array[1..n] of string[10];
           i,j: integer;
      z: real;
      m: string[10];
begin
      for i=1 to n do
begin
       write('Vvedit nazvy',i,' mista:);
       readln (misto[i]);
       write('Vvedit naselena',j,' mista:);
        readln (naselena[i]);
        end;
   for i:=1 to 9 do
   for j:=i+1 to n do
   if  naselena [i]<naselena[j] then
   begin
   z:=naselena[i];naselena[i];naselena[j];naselena[j]:=z; // поміняли місцями
   m:=misto[i]:=misto[j];misto[j]:=m;
   end;
   writeln;
   writeln ('Namensche misto:');
   writeln;
   for i=1 to 1 do
   writeln (i,',',misto[i],'-',naselena[i]:5:1);
   readln;
   end.