doc file 2

program aa;
uses crt;

var f:text;
var i:integer;
var dem:integer;
a:array[1..100] of integer;

begin
clrscr;
assign(f, 'songuyen.dat');
reset(f);

dem:=0;
while not eof(f) do
begin
dem:=dem+1;
read(f, a[dem]);
end;

for i:=1 to dem do
begin
write(a[i]);
if i mod 10 = 0 then writeln();
end;close(f);
readln;
end.