Задача для Free Pascal

[Aranea tela telam]

Сообщение от whatever

Program User;
var 
a:array of int64;
i,b,n:int64;
begin
randomize;
b:=0;
Readln(n);
setlength(a,n)
for i:=0 to n-1 do
begin
a[i]:=Random(100);
b:=b+a[i];
if a[i]<10 then a[i]:=0;
end;
Writeln('Сумма массива ровна = ',b);
for i:=1 to 10 do
Write(' ',a[i]);
end.

не?

Спасибо за исправление whatever