tìm trong mảng có phần tử x không?

program kiem_tra;

uses crt;

type kmang:array[1..1000] of integer;

var A:kmang;

     n,i,x:integer;

{—ham-kiem-tra—}

function kt(so:integer; A:kmang; n:integer):boolean;

var j:integer;

begin

       kt:=true;

       for j:=1 to n do

              if A[j]=so then exit;

       exit(false);

end;

{—Chuong-trinh-chinh—}

BEGIN

       clrscr;

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

       for i:=1 to n do

              begin

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

              end;

       write(‘Nhap x: ‘); readln(x);

       if kt(x,A,n) then write(‘Co’) else write(‘Khong’);

       readln;

end.