Вопрос Помогите найти ошибку в коде в паскале

[Данилка05061998]

program dsfgsd;
const N=0;
var i,:integer;
a: array [1..N] of integer;
begin
clrscr;
for i:= Random(100);
write(a'');
writeln;
for var i:=1 to N-1 do
a :=a[i+1];
a[N] :=0;
writeln('После: ');
for var i:=,'');
writeln;
end.

 

[sanya21]

у тебя кривой рандом и нет заполения массива.