Du mußt Dich schon entscheiden, ob Du lesen oder schreiebn willst. Also ändere
Delphi-Quellcode:
rewrite(datuf);
//...
Readln(datuf,datu[x-1]);
nach (wahrscheinlich)
Delphi-Quellcode:
reset(datuf);
//...
Readln(datuf,datu[x-1]);
oder
Delphi-Quellcode:
rewrite(datuf);
//...
writeln(datuf,datu[x-1]);
Gammatester