Delphi - Нахождение среднего среди большлго числа чисел

[P.A.S.C.A.L.]

Привет всем. Я первый раз на форуме и в заголовке не знал что написать.
Меня на работе попросили (студента, проходящего практику) написать прогу которая выводит в поле memo среднее число среди множества чисел (а их может быть мноооооого).
Все бы ничего, но загвоздка в другом: даны н-р в поле memo1 числа - 1,2,1,2,6,4,7,8,6,2,1,85,4,6,4,5,6, 14,56,4,87,1,6, 1,586,1,5,41,2,416,214,6,42,4;
мы вводим координаты (н-р:4), т.е. это значит, что среди всех выше перечисленных чисел программа выделяет 4 числа (т.е. 1,2,1,2), находит среднее число и записыват в memo2, потом берет след. 4 числа (т.е. 2,1,2,6), действие повторяется; потом сново берутся след. 4 числа (т.е. 1,2,6,4) и т.д.
Помогите написать сам код, ни как придумать не могу
Если кому не понятно то вот рис.

здесь массив чисел, черным цветом указаны первые 10 чисел, зеленым след. 10 и т.д.
Заранее благодарен

[veniside]

> среднее число

не знаю, что такое "среднее число", но если это среднее арифметическое, то можно так:

procedure TForm1.Button1Click(Sender: TObject);
var
  windowsize: Integer;
  startpos: Integer;
  i: Integer;
  sum, median: Integer;
begin
  windowsize := 10;
  //
  startpos := 0;
  while (startpos + windowsize <= Memo1.Lines.Count) do begin
    //
    sum := StrToIntDef(Memo1.Lines[startpos], 0);
    for i := startpos + 1 to startpos + windowsize - 1 do
      inc(sum, StrToIntDef(Memo1.Lines[i], 0));
    //
    median := sum div windowsize;
    Memo2.Lines.Add(IntToStr(median));
    //
    inc(startpos);
  end;
end;

[P.A.S.C.A.L.]

Спасибо тебе Veniside, все великолепно работает.