Даны два одномерных массива различной размерности. Для каждого из данных одномерных

Var
a: 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 do
begin
  if a[i] gt; 9 then
    a[i]:=9;
  if a[i] lt; 5 then
    a[i]:=5;
end;
//преобразуем массив B
for i:=1 to 10 do
begin
  if b[i] gt; 9 then
    b[i]:=9;
  if b[i] lt; 5 then
    b[i]:=5;
end;
end.