Циклическая перестановка в одномерном массиве

[_Marchel_]

Ввести одномерный целочисленный массив A, вывести его.
Произвести циклический сдвиг вправо его элементов столько раз, сколько
раз в массиве встречаются отрицательные числа.

Помогите пожалуйста с текстом программы.

Вот массив:
5 -1 3 -2 8

[Serge_Bliznykov]

Сообщение от _Marchel_

Ввести одномерный целочисленный массив A, вывести его.
Произвести циклический сдвиг вправо его элементов столько раз, сколько
раз в массиве встречаются отрицательные числа.

Помогите пожалуйста с текстом программы.

Вот массив:
5 -1 3 -2 8

вот результирующий массив:
-2 8 5 -1 3

А программу я вам напишу, если Вы хотя бы описание переменных и ввод массива напишете в виде программы.

[_Marchel_]

program ABC;
const Nmass=100;
var A:array[1..Nmass] of integer;
 i,L,temp: byte;
 buf:integer;
begin
 cls;
 writeLn('Введите L - количество элементов массива');
 readLn(L);
 writeLn('Вводим элементы массива A:');
 for i:=1 to L do
 begin
 write('A[',i,']=');
 readLn(A[i]);
 end;
 writeLn('Исходный массив A:');
 for i:=1 to L do
 write(A[i]:5);
 writeLn;

вот такое начало как я думаю

[Mad_Cat]

const Nmass=100;
var A:array[1..Nmass] of integer;
  i,j,L: byte;
  buf:integer;
  tmp:integer;
begin
  readLn(L); tmp:=0;
  for i:=1 to L do
    begin
      write('A[',i,']=');
      readLn(A[i]);
      if a[i]<0 then inc(tmp);
    end;
  for i:=1 to L do
    write(A[i]:5);
  writeLn;
  for j:=1 to tmp do
    begin
      buf:=a[L];
      for i:= L downto 2 do
        a[i]:=a[i-1];
      a[1]:=buf;
    end;
  for i:=1 to L do
    write(A[i]:5);
  writeLn;
  readln;
end.

[Serge_Bliznykov]

Mad_Cat, угу. Спасибо!

[_Marchel_]

Сообщение от Mad_Cat

const Nmass=100;
var A:array[1..Nmass] of integer;
  i,j,L: byte;
  buf:integer;
  tmp:integer;
begin
  readLn(L); tmp:=0;
  for i:=1 to L do
    begin
      write('A[',i,']=');
      readLn(A[i]);
      if a[i]<0 then inc(tmp);
    end;
  for i:=1 to L do
    write(A[i]:5);
  writeLn;
  for j:=1 to tmp do
    begin
      buf:=a[L];
      for i:= L downto 2 do
        a[i]:=a[i-1];
      a[1]:=buf;
    end;
  for i:=1 to L do
    write(A[i]:5);
  writeLn;
  readln;
end.

большое спасибо!