Створити і вивести масив з квадратів перших 10 чисел

Program Massiv;
uses
  crt;
var
  a: array[0..9] of integer;
  i: integer;
begin
  clrscr;
  for i:=0 to 9 do
  begin
     a[i]:=sqr(i+1);
     writeln('a[',i,']=',a[i]);
  end;
  Readln;
end.