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

procedure TForm1.Button1Click(Sender: TObject);
 var
  Anzahl: Array[1..10] of Double;
  Messwertspeicher: Double;
  Messwert:Double;
  Anzahl:Integer;
  code:integer;
   begin
    Summe:= 0;
    Anzahl:= 0;
     repeat
      Anzahl:= Anzahl + 1;
      Summe:=Summe+Messwert;
      val (InputBox('MESSWERT','bitte Messwert eingeben', ''),Messwert,code);
       If Messwert >0 then
        Messwerte.lines.add('Nr.'+inttostr(Anzahl)+':'+floattostr(Messwert));
        Messwertspeicher[anzahl]:=messwert;
         UNTIL Messwert = 0;
          Messwertspeicher[anzahl]:=messwert;
          Messwerte.lines.add('Messwerteingabe beendet!');
          anzahl:=anzahl-1;
        end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var
  Messwertspeicher : Array[1..10] of Double;
  Messwert,
  Summe            :Double;
  Anzahl,code      :Integer;
begin
  Summe    := 0;
  Anzahl   := 0;
  Messwert := 0;
  repeat
    Anzahl := Anzahl + 1;
    Summe  := Summe + Messwert;
    val (InputBox('MESSWERT: '+IntToStr(Anzahl),'bitte Messwert eingeben', ''),Messwert,code);
    If Messwert > 0 then
    begin
      Messwerte.lines.add('Nr.' + IntToStr(Anzahl) + ': ' + FloatToStr(Messwert));
      Messwertspeicher[Anzahl] := messwert;
    end;
    If Anzahl = 10 then Messwert := 0;
  until Messwert = 0;
  Messwerte.lines.add('Messwerteingabe beendet!');
end;