Сдвиг элементов в массивах

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure Vvod(var a:mas; var n:byte);
var i:byte;
begin
repeat
write('Размер массива от 5 до ',nmax,' n=');
readln(n);
until n in [5..nmax];
writeln('Введите элементы массива, целые числа:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
end;
procedure Vyvod(a:mas;n:byte;s:string);
var i:byte;
begin
writeln(s);
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
end;
function Vozr(a:mas):boolean;
var i:byte;
    f:boolean;
begin
f:=true;
i:=2;
while(i<=5)and f do
if a[i]<=a[i-1] then f:=false
else i:=i+1;
Vozr:=f;
end;
procedure Sdvig(var a:mas;n:byte);
var i,j,bf:integer;
begin
if Vozr(a) then
 begin
  {сдвиг вправо}
  for j:=1 to 2 do
   begin
     bf:=a[n];
     for i:=n downto 2 do
     a[i]:=a[i-1];
     a[1]:=bf;
   end
 end
else
 begin
   {Сдвиг влево}
   for j:=1 to 2 do
   begin
     bf:=a[1];
     for i:=1 to n-1 do
     a[i]:=a[i+1];
     a[n]:=bf;
   end
 end
end;
var a:mas;
    n:byte;
    s:string;
begin
clrscr;
Vvod(a,n);
Vyvod(a,n,'Исхлдный массив:');
if Vozr(a) then
 begin
  writeln('Первые 5 элементов возрастают');
  s:='Сдвиг вправо на 2 позиции:';
 end
else
 begin
  writeln('Первые 5 элементов не возрастают');
  s:='Сдвиг влево на 2 позиции:';
 end;
Sdvig(a,n);
Vyvod(a,n,s);
readln
end.