Ввести целочисленный одномерный массив A, вывести его. Найти K– количество нечётных элементов в этом массиве - Pascal ABC

Формулировка задачи:

Добрый вечер. Помогите решить задачу,с обычным одномерным массивом справился,а со сложным не могу. Ввести целочисленный одномерный массив A, вывести его. Найти K– количество нечётных элементов в этом массиве. Произвести циклический сдвиг вправо элементов массива K раз.

Подскажите кто-нибудь...

Решение задачи: «Ввести целочисленный одномерный массив A, вывести его. Найти K– количество нечётных элементов в этом массиве»

Листинг программы

const nn=10;
type mas=array[1..nn] of integer;
var a:mas;
    n,i,k:integer;
procedure inp(var x:mas);
var i:integer;
begin
 writeln('введите элементы массива:');
 for i:=1 to n do
  begin
   write('a[',i,'] = ');readln(a[i])
  end 
end;
procedure outp(x:mas;s:string);
var i:integer;
begin
 writeln(s);
 for i:=1 to n do write(a[i]:3);writeln
end;
procedure sdvig(var x:mas);
var i,tmp:integer;
begin
 tmp:=a[n];
 for i:=n downto 2 do a[i]:=a[i-1];
 a[1]:=tmp
end;
begin
 repeat
  write('введите количество элементов массива 1<n<=',nn,': ');
  readln(n)
 until (1<n)and(n<=nn);
 inp(a);
 outp(a,'исходный массив:');
 k:=0;
 for i:=1 to n do if odd(a[i]) then inc(k);
 writeln('количество нечетных: ',k);
 for i:=1 to k do sdvig(a);
 outp(a,'массив после циклического сдвига:');
end.

Объяснение кода листинга программы

Константа nn определяет максимальное количество элементов, которое может быть в массиве.
Тип mas определяет массив целых чисел.
Переменная a инициализируется значением mas.
Переменные n, i и k используются для итерации по массиву и подсчета количества нечетных элементов.
Функция inp считывает элементы массива, используя цикл for.
Функция outp выводит элементы массива.
Функция sdvig (сдвиг) перемещает все элементы массива, начиная с последнего, на одну позицию вперед.
Основной цикл программы начинается с запроса у пользователя количества элементов в массиве.
Запрашивается количество элементов, проверяется его корректность.
Вводится исходный массив.
Выводится исходный массив.
Подсчитывается количество нечетных элементов в массиве.
Выводится количество нечетных элементов.
Выполняется сдвиг массива, чтобы оставить только нечетные элементы.
Выводится массив после сдвига.