viết chương trình nhập vào dãy A gồm n số nguyên (n<=100)và số nguyên k. a) tìm xem có số nào trong dãy bằng k nếu có thì in ra vị trí đó,nếu ko thì thông báo ko có k trong A

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,k: longint;
    ok: boolean;
Begin
        Clrscr;
        Write('Nhap n va k: '); Readln(n,k);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        ok:=false;
        For i:=1 to n do
                If A[i]=k then
                Begin
                        ok:=true;
                        Break;
                End;
        If ok=false then Write('Khong co so ',k,' trong mang')
        Else
        Begin
                Write('Vi tri: ');
                For i:=1 to n do
                        If A[i]=k then Write(i,' ');
        End;

        Readln
End.