Сгенерировать массив из N случайных целых чисел и вывести его. Ввести целое число. Определить, есть ли в массиве элемент, равный этому числу, или вывести сообщение, что нет такого значения в массиве

Const K = 30; Var A:array[1..K] of integer; i,C,n:integer; Begin Write('Введите целое число: ');ReadLn(C); n:=0; For i:= 1 to K do     Begin     A[i]:=random(21)-10;     Write(A[i],' ');     if A[i]=C then n:=n+1;     End; WriteLn; if n>0 then WriteLn('В массиве есть элемент, равный ',C) else WriteLn('В массиве нет элементов, равных ',C) End.