Язык Pascal. Программирование для начинающих

var i, n, k: integer;
a: array[1..100] of integer;
begin
readln (n);
for i:=1 to n do
begin a[i]:= random (80)-20;
write (a[i]:4); end;
writeln;
for i:=1 to n do
if a[i]<-2 then k:=k+1;
if k>0 then for i:=1 to n do if a[i]<0 then a[i]:= sqr (a[i]);
for i:=1 to n do
write (a[i]:4);
writeln;
end.