Pascalban ezt hogy kell megoldani? (algoritmus kéne)

Ha csak algoritmus kell:

Szerintem a legegyszerűbb, ha felveszel két változót az egyik a sor elejének az indexét tárolja a másik a sor végének indexét. Ha beraksz egy elemet => növeled a sor vége indexet (moduló sor hossza), Ha kiveszel egyet => növeled a sor eleje mutatót.

Program ennekahulyenek;

type tomb=array[1..100]of integer;

var A:tomb;

n,i:integer;

Begin

n:=0;

repeat

n:=n+1;

write('A[',i,']= ');

Readln(A[i]);

until A[i]=0;

n:=n-1;

for i:=1 to n do

write(A[i],' ');

writeln;

readln;

End.

A kivevés:

While n>0 do begin

write(A[n],' ');

n:=n-1;

end;