Как вычислять сложность алгоритма, или найти асимптотическую сложность любой программки?

var
 
  x, n, r: word;
 
 
begin
 
  readln(x, n);
 
  r := 1;
 
  while n <> 1 do begin
 
    if odd(n) then r := r * x;
 
    x := x * x;
 
    n := n div 2
 
  end;
 
  writeln(x * r)
 
end.

const n=8;
type country=record
      name:string[30];
      population:longint;
      square:real;
     end;
var
  a:array[1..n] of country;
  s,r:string;
  i,j:integer;
  f:file of country;
begin
  assign(f,'country.dat');
  if not FileExists('country.dat') or (Uppercase(ReadlnChar('Файл country.dat уже существует! перезаписать (Y/N)?'))='Y') then begin
    Rewrite(f);
    writeln('Введите данные по странам:');
    for i:=1 to n do begin
      writeln('Запись #',i);
      a[i].name:=ReadlnString('Название страны:');
      a[i].population:=ReadlnInteger('Население:');
      a[i].square:=ReadlnReal('Занимаемая площадь:');
      write(f,a[i]);
    end;
  end  
  else begin 
    reset(f);
    for i:=1 to 8 do read(f,a[i]);
  end;
  close(f);
    for i:=1 to n-1 do
      for j:=i+1 to n do if a[i].name>a[j].name then Swap(a[i],a[j]);
  writeln('отсортированный список:');
  writeln(format('{0,-40}{1,20}(чел){2,20}(км^2)','Название страны','Население','Занимаемая площадь'));
  for i:=1 to n do writeln(format('{0,-40}{1,20:N}{2,20:F}',a[i].name,a[i].population,a[i].square));
  s:=ReadlnString('Введите название страны:');
  r:='';
  for i:=1 to n do 
    if UpperCase(s)=UpperCase(a[i].name) then r:=r+format('{0,-40}{1,20:N}{2,20:F}',a[i].name,a[i].population,a[i].square)+NewLine;
  if r='' then writeln('Страна "',s,'" не найдена') else writeln(r);
end.