Напишите программу на паскаль

Заполните массив случайными числами в интервале [0,5]. Введите число X и найдите все значения равные x

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

x, i: integer;

begin

for i : = 1 to 5 do

begin

a[i] : = random (5);

write (a[i],' ');

end;

writeln ('Введите x');

readln (x);

for i : = 1 to 5 do

if a[i] = x then writeln ('Иксу равен ', i, '-ый элемент массива');

end.