viết chương trình nhập 10 bất kì từ 0->255 vào tệp D:\baitap.TXT.Đọc và ghi vào các giá trị của tệp đó (chưa biết số lượng số đã nhập)

program baigiai;

Uses crt;

var f:text;

      A:array[1..10] of integer;

      i:byte;

begin

clrscr;

writeln(‘Moi ban nhap 10 so bat ki:’);

for i:=1 to 10 do

  begin

    write(‘So thu ‘,i,’: ‘);   readln(A[i]);

  end;

Assign(f,’D:\baitap.TXT’);   rewrite(f);

write(g,’10 so vua nhap la: ‘);

for i:=1 to 10 do

    write(g,A[i],’ ‘);

readln

end.