Решить в Паскале

Определить содержит ли массив А[1 ... 20] случайное число Х, введеное с клавиатуры.

Program 1;

Var a:array[1 ... 20] of integer;

X, i, k: integer;

Begin

Writeln ('введите элементы массива') ;

For i:1 to 20 do

Readln (a[i]) ;

Writeln ('введите х=') ;

Readln (x) ;

For i:=1 to 20 do

If x=a[i]

Then k:=k+1;

If k>0

Then writeln ('да, содержит')

Else writeln ('нет, не содержит') ;

END.