//Die Gewichtung führe ich so durch: (n ist unser Gewicht)
  for x:=1 to 5 do
          begin
          n:=n+x;
          end;
//Die Umsetzung klappt nicht:
    GMW[i]:=GMW[i]+Zahlen[X]/5*N;
//Auch so nicht:
    GMW[i]:=GMW[i]+Zahlen[X]/N;

program Project2000;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var
  Zahlen :Array[1..20] of Real; //Basiswerte
  MW :Array[1..20] of Real; //Mittelwert
  GMW :Array[1..20] of Real; //Gewichteter Mittelwert
  i,x,n :Integer;
  f :TextFile;

  begin
//Zahlen zuweisen:
  Zahlen[1]:=10.42;
  Zahlen[2]:=11.10;
  Zahlen[3]:=10.83;
  Zahlen[4]:=11.05;
  Zahlen[5]:=10.96;
  Zahlen[6]:=11.55;
  Zahlen[7]:=11.98;
  Zahlen[8]:=12.05;
  Zahlen[9]:=12.50;
  Zahlen[10]:=12.67;
  Zahlen[11]:=13.42;
  Zahlen[12]:=14.10;
  Zahlen[13]:=13.83;
  Zahlen[14]:=14.05;
  Zahlen[15]:=13.96;
  Zahlen[16]:=14.55;
  Zahlen[17]:=14.98;
  Zahlen[18]:=15.05;
  Zahlen[19]:=15.50;
  Zahlen[20]:=16.67;

  //Mittelwert zuweisen (5 Werte)
  for i:=5 to 20 do
      begin
      for x:=i-4 to i do MW[i]:=MW[i]+zahlen[X]/5;
      end;

  //Gewichteter Mittelwert:
  for i:=5 to 20 do
      begin
      n:=0; //Teiler 0 zuweisen;
      for x:=i-4 to i do
          begin
          n:=n+x; //Teiler "gewichten"
          GMW[i]:=GMW[i]+Zahlen[X]/5*n; //Da wird es irgendwie hapern...
          end;
      end;

Writeln('Testprogramm: Gew. Mittelwert');
Writeln;
//In Datei für Excel mit Komma als Trenner schreiben, damit ist ein Diagramm möglich
assignfile(f,'C:\Gewichte.csv');
Rewrite(f);
for i:=1 to 20 do
     Writeln(f,zahlen[i]:0:2,',',MW[i]:0:2,',',GMW[i]:0:2);
CloseFile(f);
//.. und auf den Screen natürlich
Writeln('Zahlen MW GMW');
Writeln;
for i:=1 to 20 do
     Writeln(zahlen[i]:0:2,' ',MW[i]:6:2,' ',GMW[i]:6:2);
Writeln;
Writeln('Fertig - Programm beenden: [Enter]');Readln;
end.