Поменять все элементы массива одинаковые 5 на 1000.Пожалуйста В Pascal ABC

const n=10;

var a:array[1..n] of integer;

i: integer;

begin

write(' Начальный массив: ');

for i:=1 to n do

begin

a[i]:=random(9)+1;

write (a[i]:4,' ')

end;

writeln;

write('Преобразованый массив: ');

for i:=1 to n do

begin

if (a[i] = 5) then a[i]:=1000;

write (a[i]:4,' ')

end

end.