Сдвиг элементов массива на позицию влево, подсчет положительных элементов

const n=14;
var
a:array [1..n] of integer;
procedure random;
var
i:integer;
begin
randomize;
for i:=1 to n do
a[i]:=-100+random(100);
end;
procedure vivod;
var
i:integer;
begin
for i:=1 to n do
write(a[i]:5);
writeln
end;
procedure sdvig_vlevo;
var
i,x:integer;
begin
i:=1;
while i<14 do
begin
x:=a[i];
a[i]:=a[i-1];
a[i-1]:=x;
end
end;
function sum_elem:integer;
var
i: integer;
begin
for i:=1 to n do
if a[i]>=0 then
sum_elem:=sum_elem+1;
end;
begin
random;
vivod;
sdvig_vlevo;
vivod;
write('количество положительных элементов',sum_elem);
vivod;
readln
end.

const n=14;
var
  a:array [1..n] of integer;
  
procedure randoms;
var
i:integer;
begin
 randomize;
 for i:=1 to n do a[i]:=random(100) - 50;
end;
 
procedure vivod;
var
i:integer;
begin
for i:=1 to n do write(a[i]:5);
writeln
end;
 
procedure sdvig_vlevo;
var
i,x:integer;
begin
x := a[1];
for i := 1 to n - 1 do
 a[i] := a[i + 1];
a[n] := x;
end;
 
function sum_elem:integer;
var
i, s: integer;
begin
s := 0;
for i:=1 to n do
 if a[i]>=0 then s:=s+1;
sum_elem := s; 
end;
 
begin
randoms;
vivod;
sdvig_vlevo;
vivod;
write('количество положительных элементов',sum_elem);
vivod;
readln
end.

x := a[1];
for i := 1 to n - 1 do
 a[i] := a[i + 1];
a[n] := x;

x := a[1]; //Копируем первый элемент массива в переменную х
for i := 1 to n - 1 do //Организовываем массив с n - 1 итерациями, т.е. с 13.
 a[i] := a[i + 1]; //Производим сдвиг массива влево, путем присваивания i-му элементу, значения i + 1 элемента
a[n] := x; //После сдвига влево, у нас остается пустым 14, т.е. n (n = 14) элемент массива, присваиваем ему значение 1 элемента, т.е. x