вычислить количество операций в программах, чтобы оценить сложность

program z_array;
uses crt;
var a:array[1..100] of integer;
n,i,min,max:byte;
temp:integer;
begin
clrscr;
writeln('Введите размерность массива');
readln(n);
writeln('Введите элементы массива');
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
writeln('Данный массив');
for i:=1 to n do
write(a[i],' ');
min:=1;
max:=1;
for i:=2 to n do
begin
if a[i]>a[max] then max:=i;
if a[i]<a[min] then min:=i;
end;
temp:= a[min];
a[min]:=a[max];
a[max]:=temp;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i],' ');
readln;
end.

const
  n = 5;
var
  Matr: array[1..n, 1..n] of integer;
  i, j: byte;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if (i = j) then Matr[i, j]:=1
        else Matr[i, j]:=0;
      write(Matr[i, j]:4);
    end;
    writeln;
  end;
end.

const 
  nmax=10;
type
  Tmatrix=array[1..nmax,1..nmax] of integer;
var
  a:Tmatrix;
  i,j,n:integer;
begin
  write('n=');
  readln(n);
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if j<=n-i+1 then
            a[i,j]:=j+i-1
          else
            a[i,j]:=0;
          write(a[i,j]:4);
        end;
      writeln;
    end;
end.

program Sort_Vybor1;
var A:array[1..100] of integer;
N,i,m,k,x : integer;
 
begin
write('количество элементов массива ');
read(N);
for i:=1 to n do read(A[i]);
for k:=n downto 2 do {k- количество элементов для поиска max }
begin
m:=1; { m - место max }
for i:=2 to k do if A[i]>A[m] then m:=i;
{меняем местами элементы с номером m и номером k}
x:=A[m]; A[m]:=A[k]; A[k]:=x;
end;
for i:=1 to n do write(A[i],' '); {упорядоченный массив}
end.

procedure Bubble(var item: DataArray; count:integer);
var
  i,j : integer;
  x : DataItem;
begin
  for i := 2 to count do
    begin
      for j := count downto i do
        if item[j-1]>item[j] then
          begin
            x := item[j-1];
            item[j-1] := item[j];
            item[j] := x;
          end;
    end;
end; {конец сортировки пузырьковым методом}

procedure Bubble(var item: DataArray; count:integer);
var
  i,j : integer;
  x : DataItem;
begin
  for i := 2 to count do
    begin
      for j := count downto i do
        if item[j-1]>item[j] then
          begin
            x := item[j-1];
            item[j-1] := item[j];
            item[j] := x;
          end;
    end;
end; {конец сортировки пузырьковым методом}

var a:array[1..100]of integer;
i,n,l,r,temp:integer;
begin
read(n);
for i:=1 to n do read(a[i]);
l:=1;
for i:=1 to (n div 2) do if a[i]<a[l] then l:=i;
r:=(n div 2)+1;
for i:=(n div 2)+1 to n do if a[i]>=a[r] then r:=i;
for i:=l+1 to ((l+r) div 2) do begin
 temp:=a[i];
 a[i]:=a[r+l-i];
 a[r+l-i]:=temp;
end;
for i:=1 to n do write(a[i],' ');
readln;
end.

uses crt;
const nmax=20;
var c:array[1..nmax,1..nmax] of char;
    a:array[char] of integer;
    n,m,i,j,k:byte;
    s:char;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    {возьмем только цифры и латинские буквы, а то много будет}
    repeat
     k:=random(75)+48;
    until k in [48..57,65..90,97..122];
    c[i,j]:=chr(k);
    write(c[i,j]:2);
   end;
  writeln;
 end;
writeln;
for s:=#48 to #122 do
a[s]:=0;
for i:=1 to n do
for j:=1 to m do
inc(a[c[i,j]]);
k:=0;
writeln('Разные элементы массива:');
for s:=#48 to #122 do
if a[s]>0 then
 begin
  write(s,' ');
  k:=k+1;
 end;
writeln;
write('Всего разных элеметов=',k);
readln
end.

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j,k,imx:byte;
    b:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
writeln;
imx:=1;
for i:=1 to n do
if a[i]>a[imx] then imx:=i;
writeln('Максимальный элемент=',a[imx],' номер=',imx);
for i:=imx to n-1 do
a[i]:=a[i+1];
n:=n-1;
writeln;
writeln('Сортировка по убыванию модулей:');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln;
write('Введите число b=');
readln(b);
n:=n+1;
if abs(b)<=abs(a[n-1]) then a[n]:=b
else
 begin
  for i:=1 to n-1 do
   if abs(a[i])<=abs(b) then
    begin
     for j:=n downto i+1 do
     a[j]:=a[j-1];
     a[i]:=b;
     break;
    end;
 end;
writeln('Вставка элемента:');
for i:=1 to n do
write(a[i]:4);
readln
end.