Даны два одномерных массива разной размерности. Для каждого из заданных одномерных массивов выполнить преобразование массива так: все его элементы, большие девяти заменить числом девять, все его элементы, меньшие пяти заменить числом пять, а все остальные элементы оставить без изменения.
Паскаль.

Спасибо.Но я забыла добавить,что нужно с использованием процедур.

vara: array[1..5] of integer;b: array[1..10] of integer;i: integer;begin//считываем элементы массивовfor i:=1 to 5 do readln(a[i]);for i:=1 to 10 do readln(b[i]);//преобразуем массив Аfor i:=1 to 5 dobegin  if a[i] > 9 then    a[i]:=9;  if a[i] < 5 then    a[i]:=5;end;//преобразуем массив Bfor i:=1 to 10 dobegin  if b[i] > 9 then    b[i]:=9;  if b[i] < 5 then    b[i]:=5;end;end.