Статистические характеристики

[lfybbk]

Пишу программу, которая по введенному ряду чисел и их количеству определяет моду, размах, медиану и среднее арифметическое. Помогите пожалуйста с модой медианой и размахом. лучше в виде фрагмента программы, а не процедуры или функции т.к. имею дело с массивом. Или исправить и дополнить полуготовое:

Program statsolver;

Var 
  a: array [0..1000] Of integer;
  r,mid,m,sr,sum, min, max: real;
  k, w, j,i,n:integer;
Begin
  writeln ('Введите количество данных');
  readln(n);
  writeln('Введите данные');
  For I:=1 To n Do
    read (a[i]);


//сюда надо моду и медиану
for I:=1 to n do 
begin
sum:=sum+a[i];
end;
sr:=sum/n;

writeln ('Среднее арифметическое ряда: ',sr:0:0);
min:=a [1];
max:=a [1];
for I:=1 to n do
begin
	if a[I]> max then max:=a [i];
	if a [i]<min then min := a [i]
	end;
	writeln ('Максимум: ',max:0:0,'; Минимум:',min:0:0);
	r:=max-min;
	writeln ('Размах: ',r:0:0);
	
end.