Daten von einer Datei aufaddieren durch FOR TO DO

[Der.Kaktus]

Zitat von coly546:

Hallo,
beim vorliegenden Programm möchte ich die eingegebenen Werte (jeder Stunde) addieren. So das ich zum Schluss die Gesamteinnahmen aller Stunden habe. Das habe ich auch schon mit einer zweiten For-to-do Schleife probiert, leider ohne Erfolg. In der Vergangenheit, hatte ich dieses Problem schon einmal gelöst, jedoch finde ich die passende Datei nicht mehr.

Es wäre nett, wenn sich das mal Jemand ansehen könnte.



Ich danke euch bereits im voraus!

Delphi-Quellcode:

program In_Out;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var Datei_X:file of real;
    Wert,Ergebnis:real;
    i:integer;

{------------------------------------------------------------------------------}
procedure  Eingabe;
var i:integer;
begin

ASSIGN (Datei_X,'C:\Dokumente und Einstellungen\File.DAT');
REWRITE(Datei_X);
for i:=10 to 19 do
begin
 write('                ',i,':00 Uhr! Wie hoch waren die Einnahmen?:');
 readln(Wert);
 WRITE(Datei_X,Wert);
end;

CLOSE(Datei_X);
writeln;writeln('                                ENTER dr',#129,'cken...');
readln;
end;

{------------------------------------------------------------------------------}
procedure Ausgabe;
Begin
for i := 1 to 20 do writeln(' ');
writeln('             Ihre Einnahmen...:');
writeln;

ASSIGN (Datei_X, 'C:\Dokumente und Einstellungen\File.DAT');  
{$I-}
RESET(Datei_X);                 
{$I+}

  if IOResult <>0 then
  writeln('Datei ist weg')
  else begin
While not EoF(Datei_X) do
 begin
 READ(Datei_X, Wert);
 write('                                ');writeln(Wert:10:2,' Euro');
 for i:=10 to 19 do
  Ergebnis:=Wert+1;
//----> hier fehlt das naechste Read !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 end;
writeln;writeln(Ergebnis:10:2);
CLOSE(Datei_X);
writeln;writeln;writeln;writeln('                                ENTER dr',#129,'cken...');
readln;
End;end;

Hallo..habe die Stelle im Quelltext markiert..da fehlt was