Viết chương trình nhập vào dãy số nguyên gồm N số. Nhập số cần tìm. Hãy cho biết có số cần tìm trong dãy hay không? Giúp em với ạ. Em cảm ơn

program kiemtra;

Uses crt;

var A:array[1..100] of integer;

      n,i,k:integer;

      kt:boolean;

begin

     clrscr;

     write(‘Nhap so luong n: ‘);   readln(n);

     for i:=1 to n do

         begin

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

         end;

     write(‘Nhap so can tim: ‘);  readln(k);

     for i:=1 to n do

         if A[i]=k then

             begin

                 kt:=true;

                 break;

             end;

     if kt=true then write(‘Co so can tim trong day’)

         else write(‘Khong co so can tim trong day’);

     readln;

end.