Все ли правильно Я сделал?

Все ли правильно Я сделал ?

ТЗ

• Создает массив из не более чем 100 целых чисел
• Вводит с клавиатуры n целых чисел
• Выводит на экран введённые с клавиатуры числа
• Увеличивает в 3 раза значения каждого элемента массива
• Выводит на экран изменённые значения элементов массива
• Возводит в квадрат каждый элемент массива
• Выводит на экран изменённые значения элементов массива

В программе необходимо использовать процедуру печати элементов массива PECH

program Hello;
var PECH: array[1..100] of integer;
n,s,i:integer;
begin
write('Введи n ==>');
readln(n);
for i :=1 to n do
begin
write('PECH[',i,']=');
readln(PECH[i]);
end;
for i :=1 to n do
write(PECH[i],'');
writeln;
for i :=1 to n do
PECH[i]:=PECH[i]*3;
for i :=1 to n do
write(PECH[i],'');
writeln;
for i :=1 to n do
PECH[i]:=PECH[i]*3;
for i :=1 to n do
write(PECH[i],'');
end.