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

var CtrlPoints2D: array[0..3,0..3,0..2] of Single; //4x4 Pkt mit je 3 Koordinaten

procedure LoadCtrlPoints;
var
u, v : Integer;
F : Text;
begin
  AssignFile(F, 'surface.txt');
  Reset(F);
  FillChar(CtrlPoints2D[0,0,0], SizeOf(CtrlPoints2D), 0);
  for u := 0 to 3 do
    for v := 0 to 3 do
      ReadLn(F, CtrlPoints2D[u,v,0], CtrlPoints2D[u,v,1], CtrlPoints2D[u,v,2]); //fehler
  CloseFile(F)
end;					

1:
2:
3:
4:

-1.5 2.0 -1.5
-0.5 -1.0 -1.5
0.5 -1.0 -1.5
...