Заполнить массив размером 10 элементов целыми числами, вводимыми с клавиатуры. вывести на экран элементы массива и из произведения

Pascal: program fsdf; var a: array[1 ... 10] of integer; b: array[1 ... 10] of integer; i, z:byte; begin writeln ('Vvedite element'); for i:=1 to 10 do begin readln (a[i]); end; for i:=1 to 10 do for z:=1 to 10 do begin if a[i] < 0 then b[z]:=a[i]; end; for z:=1 to 10 do begin writeln (b[z]); end;