Расчет показателей вариации

program discret;
uses crt;
const n = 10;
 
function min( a : array [1..n] of byte ): byte;
var i, min: byte;
begin
min := a[1];
for i:=2 to n do
    if (a[i] < min) then min := a[i];
    result := min;
end;
 
function max( a : array [1..n] of byte ): byte;
var i, max: byte;
begin
max := a[1];
for i:=2 to n do
    if (a[i] > max) then max := a[i];
    result := max;
end;
 
function sum( a : array [1..n] of byte ): byte;
var i, sum : byte;
begin
sum := 0;
for i := 1 to n do
    sum := sum + a[i];
end;
 
var a : array [1..n] of byte;
    i, r : byte;
    h : char;
    t, c, s : real;
    
begin
writeln('Выберите дискретный ряд');
writeln('a: 2 2 4 7 6 5 2 2 3 4');
writeln('b: 4    3  6    5  4    7  6    6 5     3');
writeln('c: 2   4   2    3  5    7  4   3   3    2');
writeln('d: 4   5   6   6   10 4 3 3 2 3');
 
readln(h);
if ( h <> 'a' ) and ( h <> 'b' ) and ( h <> 'c' ) and ( h <> 'd' )
then writeln('Введен неверный символ');
 
case h of
'a': begin a[1]:=2; a[2]:=2; a[3]:=4; a[4]:=7; a[5]:=6; a[6]:=5; a[7]:=2;
         a[8]:=2; a[9]:=3; a[10]:=4; end;
         
'b': begin a[1]:=4; a[2]:=3; a[3]:=6; a[4]:=5; a[5]:=4; a[6]:=7; a[7]:=6;
         a[8]:=6; a[9]:=5; a[10]:=3; end;
         
'c': begin a[1]:=2; a[2]:=4; a[3]:=2; a[4]:=3; a[5]:=5; a[6]:=7; a[7]:=4;
         a[8]:=3; a[9]:=3; a[10]:=2; end;
         
'd': begin a[1]:=4; a[2]:=5; a[3]:=6; a[4]:=6; a[5]:=10; a[6]:=4; a[7]:=3;
         a[8]:=3; a[9]:=2; a[10]:=3; end;
end;
 
 
 
r := max(a) - min(a);
c := sum(a)/n;
s := 0;
for i:=1 to n do
    s := s + abs(a[i]-c);
 
t := s / n;
writeln('Размах вариации: ',r);
writeln('Среднеу линейное отклонение: ',t);
end.