Is this code correct for the job

I want an array that reads a level/temp every 60s then on the 61st read shunts all array values to the left and keeps shunting unittill the logic restarts is the best way or is there a better array like stacked array that does the shunt auto ?


For counter1 := 1 to 60 do
StatsTemp01hr[counter1] := round(getunitparameter(254, 3, ptTemperature));
counter1 := counter1+1;
Delay(60);
if counter1 = 60 then begin
For counter4 := 1 to 59 do
StatsTemp01hr[counter2] := StatsTemp01hr[counter3];
counter2:=counter2+1;
counter3:=counter3+1;
counter4:=counter4+1;
if counter4 = 59 then
StatsTemp01hr[60] := round(getunitparameter(254, 3, ptTemperature));
counter1:= 59;
counter2:= 1;
counter3:= 2;
end