Модой выборки называется значение, которое встречается боль-
         шее число раз в выборке. Например, в наборе значений
             1 2 3 4 5 6 7 8 9 3 6 6
         модой является число 6,  поскольку оно встречается три раза. Мода
         может иметь несколько значений. Например, в выборке значений

             10 20 30 40 50 60 70

         имеется две моды (30 и 60),  поскольку каждая из них  встречается
         по два раза.
              Результатом функции "FindMode" является мода  выборки.  Если
         имеется  несколько значений моды,  то в результате будет получено
         последнее значение.

             { поиск моды }
             function FindMode(data: DataArray; num: integer); real;
             var
               t, w, count, oldcount: integer;
               md, oldmd: real;

             begin
               oldmd := 0; oldcount := 0;
               for t := 1 to num do
               begin
                md := data[t];
                count := 1;
                for w := t+1 to num do
                  if md=data[w] then count := count+1;
                  if count>oldcount then
                  begin
                    oldmd := md;
                    oldcount := count;
                  end;
                end;
                FindMode := oldmd;
             end; {  конец процедуры поиска моды }