Составить программку в паскаль. Вычислить и уяснить значения функции Yi=X ,

uses crt;
var
x, y: array [ 1 . . 20 ] of integer;
i : integer;
begin clrscr;
randomize;
writeln ( Massiv X : );
for i : = 1 to 20 do
begin
x [ i ] : = random ( 20 ) - 10;
write ( x [ i ] , );
end;
for i : = 1 to 20 do
begin
if x [ i ] больше 0 then y [ i ] : = x [ i ];
if x [ i ] = 0 then y [ i ] : = 0;
if x [ i ] меньше 0 then y [ i ] : = - 1;
end;
writeln;
writeln;
writeln ( Massiv Y : );
for i : = 1 to 20 do
write ( y [ i ] , );
readkey;
end.