[Alexo]

Код:

var
  sum : integer;
  stl : TStrings;
begin
  stl := TStrings.Create;
//nen добавлене значений в stl
  for i := 0 to high(stl) do 
    Sum := sum + StrToInt(stl);
  sum := Round(sum / stl.count)

Как то так)