Viết CT đọc tệp có tên là SONGUYEN.DAT. Sau đó nhập từ bàn phím một số nguyên m, kiểm tra và thông báo ra màn hình có tồn tại m trong tệp hay không? gíup mình vớiii plssssss

var f: text;

      a, m: longint;

      kt: byte;

Begin

    Assign(f, 'SONGUYEN.DAT'); reset(f);

    Write('m = '); readln(m); kt:=0;

    While not eof(f) do

         Begin

              While eoln(f) do readln(f);

              Read(f, a); 

              If a=m then

                 Begin

                     kt:=1; break;

                 End;

         End;

    If kt=1 then write('co ', m, ' trong tep')

    Else write('khong co ', m, ' trong tep');

    Readln

End.

program kiem_tra;

uses crt;

var f:text;

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

      n,i,m,d:integer;

begin

       clrscr;

       Assign(f,'SONGUYEN.DAT');   reset(F);

       n:=0;

       while not eof(f) do

              begin

                    n:=n+1;

                     read(f,A[n]);

              end;

       write('Nhap m: ');  readln(m);

       d:=0;

       for i:=1 to n do

              if A[i]=m then 

                     begin

                            d:=1;

                            break;

                     end;

       if d=0 then write('Khong co')

              else write('Co');

       close(f);  readln;

end.