Нахождения моды, медианы, ранжировочного списка чисел

var
   mas: array[1..100] of integer;
   i, j, n, swap, tmp, MAX, k: integer;
 
begin
   
   reset(input, 'c:\\input.txt');
   rewrite(output, 'c:\\output.txt');
   randomize;
   read(n);
   
   for i := 1 to n do mas[i] := random(5) + 1;
   
   for i := 1 to n do write(mas[i]:3);
   
   for i := 1 to n - 1 do
      for j := 1 to n - 1 do
         if(mas[j] > mas[j + 1]) then
         begin
            swap := mas[j];
            mas[j] := mas[j + 1];
            mas[j + 1] := swap;
         end;
   
   writeln;
   write('Ранжировка: ');
   for i := 1 to n do write(mas[i]:3);
   
   writeln;
   if(odd(n)) then write('Медиана: ', mas[(n div 2) + 1])
   else write('Медиана: ', (mas[n div 2] + mas[(n div 2) + 1]) / 2);
   
   tmp := 1;
   for i := 2 to n do
   begin
      if(mas[1] = mas[i]) then tmp := tmp + 1;
   end;
   
   MAX := tmp;tmp := 1;k := mas[1];
   for i := 2 to n do
   begin
      
      if(tmp > MAX) then
      begin
      MAX := tmp;
      k := mas[i];
      end;
      
      tmp := 1;
      for j := i + 1 to n do
         if(mas[i] = mas[j]) then tmp := tmp + 1;
         
   end;
   
   writeln;
   write('Часто встречающаяся число: ',k);
end.

var 
mas: array[1..100] of integer; 
i, j, n, swap, tmp, MAX, k,a,c: integer;b:real; 
begin 
 
 
randomize; 
n:=strtoint(richtextbox1.text); 
b:=0; 
for i := 1 to n do mas[i] := PABCSystem.random(5) + 1;
for i:=1 to n do listbox1.items.add(inttostr(mas[i]));
for i := 1 to n - 1 do 
for j := 1 to n - 1 do 
if(mas[j] > mas[j + 1]) then 
begin 
swap := mas[j]; 
mas[j] := mas[j + 1]; 
mas[j + 1] := swap; 
end; 
for i:=1 to n do listbox2.items.add(inttostr(mas[i]));

if(odd(n)) then richtextbox5.text:=floattostr( mas[(n div 2) + 1]) 
else richtextbox5.text:=floattostr (mas[n div 2] + mas[(n div 2) + 1]) / 2;