Помогите

[andrmerk]

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

program mas;
const N = 10; 
var j,max,i,s,num :integer ; 
A : array[1..N] of integer; 
begin 
max:=0; 
writeln ('Введите массив:');
for i:=1 to N do 
read (A[i]); 
writeln('Исходный массив:');
for i:=1 to N do 
write(A[i],' '); 
for i:=1 to N do
if( A[i] mod 2 = 1 ) then 
if ( max < A[i] ) then 
begin 
max := A[i]; 
j := i; 
end; 
for s:=1 to 3 do
begin 
num := A[j+1]; 
for i:=j+1 to N-1 do 
A[i] := A[i+1]; 
A[N] := num; 
end; 
writeln();
writeln ('Самый большой нечетный элемент ' , A[j] , ' под номером ' , j ) ;
writeln('Массив после сдвига правой части:');
for i:=1 to N do 
write(A[i],' '); 
num := A[j-1];
for i:=1 to j-2 do 
A[j-i] := A[j-i-1]; 
A[1] := num; 
writeln();
writeln('Массив после сдвига левой части:');
for i:=1 to N do 
write(A[i],' '); 
end.

И может кто-то блок-схему начертить
Очень нужно,для отчета...

[andrmerk]

Помогите кто-нибудь,пожалууууйстаааааааа