Turbo Pascal Дан массив размера N.Осуществить циклический сдвиг элементов массива вправо на одну позицию с запоминанием первого элемента исправте что неправильно.
var
a:array [1..100] of integer;
i,n,temp:integer;
begin
writeln('Vvedite n=');
readln(n);
writeln('Vvedite massiv');
for i:=1 to n do
readln (a[i]);
for i:=n downto 2 do
a[i]:=a[i-1];
for i:=1 to n do
i:=1;
temp:=a[i+1];
a[i+1]:=a[i];
temp:=a[n];
a[1]:=a[n];
writeln (a[i]);
readln;
end.