Ejercicio9(arrays)

PROGRAM cambios (input,output);
TYPE
Tarray=array[1..20] of integer;
VAR
x:Tarray;
PROCEDURE cambio (var x:Tarray);
var
i:integer;
BEGIN
FOR i:=1 TO 20 DO
begin
IF x[i] MOD 2 = 0 THEN
x[i]:=sqr(x[i])
else
x[i]:=i*0;
end;
FOR i:=1 to 20 do
begin
write(x[i]);
end;
END;
PROCEDURE uno (var x:Tarray);
VAR
I:integer;
BEGIN
write('escriba el array:');
FOR I:=1 to 20 do
begin
readln(x[I]);
end;
cambio(x);
END;
BEGIN
uno(x);
END.