int FD;
FD:= FOpen("output.txt", 1);