Есть ли в массиве элементы, равные числу, введённому пользователем?

Паскаль. Помогите составить программу и оформить ответ!

var a: array[1..10] of real;x: real;a, i: integer;begina:=0;for i:=1 to 10 do beginreadln(a[i]);if a[i] = x then a:=a+1;end;if a>0 thenwriteln('Таких элементов ', a)elsewriteln('Такого элемента нет');end.

var  a: array[1..100] of integer;  i, j, c: integer;begin  Writeln('Массив ');  for i := 1 to 100 do  begin    a[i] := random(201) - 100;    write(a[i], ' ');  end;  Writeln;  write('Введите число (от -100 до 100) ');  Readln(j);  for i := 1 to 100 do     if a[i] = j then begin c := c + 1; write(i, ' '); end;  Writeln;    if c>1 then write('В массиве число введённое вами есть в массиве и даже несколько (', c, '). Их индексы представлены выше') else  if c = 1 then write('Число, которое вы ввели есть в массиве. Его индекс представлен выше') else write('Такого числа в массиве нет');  end.