Giúp về tệp trong pascal !

[vietvitcon]

Ví dụ tui tạo 1 tệp so.txt trong ổ D rồi gán cho nó là tệp f, trong tệp có 3 số nguyên, mỗi số trên 1 dòng. Vậy tại sao khi tui gõ lệnh readln(f,n)để đọc số ở dòng 1 rồi viết vào tệp khác thì nó chỉ đọc 1 số thôi chứ, sao nó viết ra tận 3 số luôn ??

[letrungcuongdtc]

cai nay xem lai di.tui toan la dung read(f,N) k ha.hoac cung co the la do luc ban xuat khong co khoang cacnh hoac k xuong dong
HS chuyen TIN truong LHP

[vietvitcon]

Vậy bạn gõ thử 1 bài đơn giản để mình copy vào pascal xem có bị thế nữa ko ??? Chứ mình ko thấy lỗi trong bài !
Còn đây là 1 bài đơn giản của mình, file nguyen1.txt có 4 số, mỗi số 1 dòng.
program b1;
uses crt;
var f1,f:text;
n:integer;
begin
clrscr;
assign(f1,'D:\nguyen1.txt');
reset(f1);
assign(f,'D:\nguyen.txt');
rewrite(f);
while not eof(f1) do
begin
readln(f1,n);
writeln(f,n:3);
end;
close(f1);
close(f);
readln;
end.

PS: mình sửa lại thành read(f,n:3) thì nó còn chèn thêm cả sô 0 vào cuối nữa. Bây h để đọc 1 số mình toàn phải thêm biến k vào rồi dùng hàm if để nó đọc 1 số