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

type  Zelle= record {...}
    Geruest=array [1..10, 1..10] of Zelle;

procedure TForm1.Speichern;
var Save: File of Geruest;
begin
  AssignFile(Save,ExtractFilePath(ParamStr(0))+'\saves\Save1.dat');
  Rewrite(Save);
    write(Save, Feld1);
  CloseFile(Save);
end;					

1:
2:
3:
4:

type  Zelle= record {...}
    Geruest=array [1..10, 1..10] of Zelle;
type Kateg = record {...}
  KatArray = array [1..50] of Kateg;