Паскаль сформировать массив из 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.

Тестани = )