Дан массив заменить все его элементы ., большие заданного N, этим числом. паскаль

Программа:

Pascal:

var

 arr: array[1..10] of integer;

 N, i: integer;

begin

 write('N = ');  readln(N);

 // заполняем массив случайными числами от 0 до 100

 for i := 1 to 10 do arr[i] := random(100);

 writeln(arr);

 for i := 1 to 10 do

   if arr[i] > N then arr[i] := N;

 writeln(arr);

end.

Результат:

N = 50

[35,24,57,10,99,50,44,67,93,89]

[35,24,50,10,50,50,44,50,50,50]