Pascal. Задача про прилавок.

[irchelika]

У прилавка магазина выстроилась очередь из n(n<=20) покупателей. Известно время t1 Обслуживания i-го покупателя (i = 1,2, ..., n). Определить время Сi пребывания i-го покупателя в очереди.

вот такой программа:
Program lab;
type mas=array[1..100] of integer;
var a:mas;
i,j,n:integer;
Begin
randomize;
writeln('введите число человек');
readln(n)
for i:=1 to n do
begin
a[i]:=random(10);
writeln('время обслуживания в очереди , ' i ' , покупателя=',a[i],'min');
end;
j:=1;
for i:=1 to n do
begin
writeln('время в очереди' , i ,' покупателя=',j,'min');
j:=j+a[i];
end;
end.

Правильно ли составлена программа?

[Abstraction]

Время пребывания в очереди первого покупателя - всегда 1 минута?

[Mad_Cat]

j:=0;
for i:=1 to n do
begin 
j:=j+a[i];
writeln('время в очереди' , i ,' покупателя=',j,'min');
end;