Ví dụ lặp for do và tệp

Ví dụ về sử dụng vòng lặp và tệp:
Tính số tiền tối đa mà người chơi chính thu được trong chương trình “Đấu Trường 100” sau đó ghi số tiền đó ra tệp “tien.txt”;
Chương trình mẫu:
program tinhtien;
uses crt;
var s:real; i:byte;
f:text;
begin
clrscr;
assign(f,`Tien.txt`);
rewrite(f);
s:=0;
for i:=100 downto 1 do s:=s+1000/i;
s:=(s+1000)*10000; {cộng 1000 nếu nhân đôi số điểm. nhân với 10000 để quy ra tiền đồng}
write(f,`So tien la: `,s:10:4,` dong`); {Viết vào tệp tiền.txt}
write(‘So tien la: ‘,s:10:4,’ dong’);
readln;
close(f);
end.
Kết quả là: