Заменить элементы массива их квадратами- Pascal(Паскаль)

program try;
const n=30;
var
mas :array [1..n] of integer;
i :integer;
begin
randomize;
for i:=1 to n do 
begin
mas[i]:=random(n);
mas[i]:= sqr(mas[i]);
writeln(mas[i]);
end;
end.