Решите )) паскаль: в одномерном массиве произвольных чисел требуется заменить числом 100 значения всех элементов, удовлетворяющих условию a[i]> =5

Const
n=10;
var
a:array[1..n]of integer;
i:integer;
begin
  for i:=1 to n do
     read(a[i]);
for i:=1 to n do
    if a[i]>5 then
       a[i]:=100;
for i:=1 to n do
   write(a[i]:4);
end.