Did I do the right thing?

Did I do the right thing?
TK
 Creates a mass of not more than 100 whole numbers
 Injects n whole numbers from the keyboard.
 Turns out the numbers from the keyboard.
 3 times the values of each component of the mass
 Reset the variables of the mass components
 Turns into a square of every element of the mass
 Reset the variables of the mass components
The programme should use the PECH press procedure
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.

Obviously, it's wrong.
 Instead of squared multiplier 3
 The second operation is carried out with changed numbers, not original ones.
 I don't really know the pasta, but it looks like the numbers are running out of a blank.
Some time ago.;
beforeend
I didn't. But it's changed.
And in fact, we don't have to ask questions, but just start this thing and see what's going on. Even an online computer, https://ideone.com/ It'll be fine if you put it in a normal way.