1:

write(f,flaeche,vsm,vs,vk);					

1:

write(f,messwerte)					

1:
2:
3:

var f: file of integer;
...
for i := bla to bla do write(f,i);					

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

type TData = record
     Name, Vorname: String [255];
end;

...

var
  Data : Array of TData;

...

procedure SaveFile(Path : String);
var
   IndX : Integer;

begin
     assignFile(MyFile,Path);
     if fileExIsts(Path) then
         reset(MyFile)
     else
         rewrite(MyFile);
     for IndX := 0 to count-1 do write(MyFile,Data[IndX]);
     closeFile(MyFile);
end;					

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

Procedure LoadFile(Path : String);
var
  tmp : TData;
begin
     if fileExIsts(Path) then
     begin
       Clear;
       assignFile(MyFile,Path);
       reset(MyFile);
       while not EOF(MyFile) do
       begin
          read(MyFile, tmp);
          Add(tmp); //Da müsste dann ne Prozedur hin, die das Array vergrößert usw...
       end;
       closeFile(MyFile);
     end;
end;