создать одномерный массив X[1..10] случайным образом.Вывести его в строку.Затем сделать циклическую перестановку

for i:=0 to 10-1 do
    a[i]:=random(10); //десятку поменяйте на нужный промежуток

var
   a:array[1..100] of integer;
   i,r,n,k,j:integer;
begin
for i:=0 to 100-1 do
a[i]:=random(100);
 read(n,k); 
 for i:=1 to n do
  read(a[i]);
 for i:=1 to k do
  begin
   for j:=1 to n do
    if (j=1) then r:=a[j] else a[j-1]:=a[j];
   a[n]:=r;
  end;
 for i:=1 to n do
  write(a[i],' ');
 readln
end.

var
a:array[1..10] of integer;
i,r,n,k,j:integer;
 
procedure shift(arr[1..10] array of integer)
begin
tmp:=arr[1];
for i:=2 to 10 do
    arr[i-1]:=arr[i];
arr[10]:=tmp;
end;
 
procedure output(arr[1..10] array of integer)
begin
for i:=1 to 10 do
    write (arr[i],' ');
end;
 
begin
for i:=1 to 10 do
begin
    a[i]:=random(100);
end;
output(a[i]);
shift(a[i]);
shift(a[i]);
output(a[i]);
end.

var
a:array[1..10] of integer;
i,r,n,k,j:integer;
 
procedure shift(arr: array [1..10] of integer)
begin
tmp:=arr[1];
for i:=2 to 10 do
        arr[i-1]:=arr[i];
arr[10]:=tmp;
end;
 
procedure output(arr: array [1..10] of integer)
begin
for i:=1 to 10 do
        write (arr[i],' ');
end;
 
begin
for i:=1 to 10 do
begin
        a[i]:=random(100);
end;
output(a[i]);
shift(a[i]);
shift(a[i]);
output(a[i]);
end.

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,k:byte;
    x:integer;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:3);
 end;
writeln;
writeln;
for k:=1 to 2 do
 begin
  x:=a[1];
  for i:=1 to n-1 do
  a[i]:=a[i+1];
  a[n]:=x;
 end;
writeln('Сдвиг на 2 влево');
for i:=1 to n do
write(a[i]:3);
readln
end.

procedure shift(arr: array [1..10] of integer)

type mas=array [1..10] of integer;
procedure shift(var arr:mas);