1:
2:

Google := True;  //Ohne brauchbares, d.h., verständliches Ergebnis
Wikepedia := False;  //hole ich aber morgen nach!                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

   a := 0;  {bad}
   b := 0;  {naja}
   c := 0;  {good}

   for i := 0 to L.Count-1 do
   begin
    if (StrToInt(L[i]) < 100) then Inc(a)
    else
    if (StrToInt(L[i]) < 125) then Inc(b)
    else                           Inc(c);
   end;

   L4.Caption := 'Gleichbleibende Leistung';

   if (a+b > c) and (a > b+c) then
    L4.Caption := 'Verschlechtere Leistung'
   else
   if (a+b < c) and (a < b+c) then
    L4.Caption := 'Verbesserte Leistung';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

  Procedure LinearRegression(x, y: Array Of Double; Var a, b, r: Double);
  Var
    i,n: Integer;
    xq, yq,
      sxy, sx2, sy2: Extended;

  Begin
    n := Length(x);
    xq := 0;
    yq := 0;
    For i := 0 To n - 1 Do Begin
      xq := xq + x[i];
      yq := yq + y[i];
    End;
    xq := xq / n;
    yq := yq / n;
    sxy := 0;
    sx2 := 0;
    sy2 := 0;
    For i := 0 To n - 1 Do Begin
      sxy := sxy + (x[i] - xq) * (y[i] - yq);
      sx2 := sx2 + sqr(x[i] - xq);
      sy2 := sy2 + sqr(y[i] - yq);
    End;
    a := sxy / sx2;
    b := yq - a * xq;
    r := sqr((1/n)*sxy / (sqrt (sx2/n)*sqrt (sy2/n)));
  End;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  i: Integer;
  xx: Array [0..9] of Double;  //Ist ja nun 0-9  -  xx[0] = 0, xx[1] = 1  -  oder?)
  yy: Array of Double;
  aa, bb, cc: Double;
begin
//...
//Und in dieser for-Schleife kracht's auch schon:
 for i := 0 to 9 do  //L ist eine StringList und, nein, die ist hier NICHT leer!
  yy[i] := StrToFloat(L[i]);  //Irgendwie müssen die Zahlen ins Array yy ja reinkommen!

 LinearRegression(xx, yy, aa, bb, cc);
 caption:=floattostr(aa);  //wollte nur mal sehen, was aa so ist                    

1:

 for i := 0 to 9 do xx[i] := i;                    

1:
2:

for i := 0 to high(meinArray) do  //immer schön variabel bleiben^^
  xx[i] := i;                    

1:
2:
3:
4:
5:

meinArray[0] := 56;
meinArray[1] := 35;
{...}
{und dann das array einlesen}
myProcedure(meinArray);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

myProc(pZahl1: Double);overload;
myProc(pZahl1,pZahl2: Double);overload;
myProc(pZahl1,pZahl2,pZahl3: Double);overload;
{...}

meinArray[0] := ...;
meinArray[1] := ...;
meinArray[2] := ...;
{...}
myPorc(meinArray);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function Tendenz(const x: array of Double): Double;
var
  i, n: Integer;
  a, b: Double;
begin
  n := length(x);
  a := 0;
  b := 0;
  for i := 0 to n-1 do
  begin
    a := a + x[i];
    b := b + i*x[i];
  end;
  Result := 2*arctan(6*(2*b-a*(n-1))/(sqr(n)*n-n))/pi;
end;