Написать программу, которая...

Написать программу, которая проверяет, находится ли в массиве введенное с клавиатуры число. Массив должен вводиться случайнымобразом.

 

uses crt;
var
  a:array [1..1000] of integer;
  i,k,n:integer;
begin
  n:=0;
  write('Введите количество элементов массива: '); read(i);
  write('Введите число: '); read(k);
  writeln('Массив:');
  for i:=1 to i do
  begin
    a:=random(100)-50;
    write(a,' ');
    if a=k then n:=n+1;
  end;
  writeln;
  write('Введенное число встречается в массиве ',n,' раз');
end.