Em đang cần gấp ạ! .Ai giải giúp em với, em cảm ơn!! Viết lệnh nhập vào từ bàn phím dãy số A gồm có N số nguyên dương. Giá trị A mảng vừa nhập vào tệp có tên là vidu.txt . Đọc và hiển thị dữ liệu từ tệp trên.

uses crt;
var a: array[1..100] of integer;

n,i: integer;
f: text;
begin
assign(f,'vidu.txt');
reset(f);
read(f,n);
for i:=1 to n do

read(f,a[i]);

writeln ('day mang la: ');

for i:=1 to n do write (a[i]:3);
close(f);
readln;
end.

program bai_giai;

uses crt;

var f:text;

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

      n,i:integer;

begin

      clrscr;

      Assign(f,'vidu.txt');   reset(f);

      readln(f,n);

      for i:=1 to n do

            read(f,A[i]);

      write('Mang la: ');

      for i:=1 to n do write(A[i],' ');

      close(f); readln;

end.