Паскаль сформировать массив из n элементов каждый элемент возвести в квадрат. вывести новый массив

Program p1;
var ch: array [1..10] of integer;
 i: integer;
begin
for i := 1 to 10 do read (ch[i]);
for i := 1 to 10 do ch[i]:=ch[i]*ch[i];
for i := 1 to 10 do writeln (ch[i]);
readln
end.

Тестани =)