составить программу по этим строчкам,где n=10
K:=A[n]
For i:=n downto 2 do
A[i]:= A[i-1];
A[1]:=K;

Начало простое:

program MyCoolProgram;
begin
end. 

Потом наполняешь эту авоську:

program MyCoolProgram;
begin
  K:=A[n];
  For i:=n downto 2 do
    A[i]:= A[i-1];
  A[1]:=K;
end. 

Далее смотришь ошибки компиляции - не описаны переменные - и исправляешь их:

program MyCoolProgram;
const
  n=10;
var
  i : integer;
  A : array [1..n] of real;
begin
  K:=A[n];
  For i:=n downto 2 do
    A[i]:= A[i-1];
  A[1]:=K;
end. 

Я оставил тебе возможность самостоятельно описать K.

спасибо, но можно ещё помочь если не трудно
как вывести потом весь этот массив?
вставил write перед end в надежде, что будет выводить каждый элемент массива но не получилось(

Массив это не элементарный тип и для его вывода нужно ручками делать подпрограмму. Короче говоря, в цикле for i перебираешь от 1 до n и выводишь A[i].

спасибо