Написать программу замены нулевых элементов

const
       n=10;
var
Y: array [1..n] of real;
i:integer;
begin
for i:=1 to n do
     begin
     y[i]:=random(5);
     write(y[i]:0:2,' ');
     if y[i]=0 then y[i]:=-1;
     end;
writeln;
for i:=1 to n do
        write(y[i]:0:2,' ');
writeln;
readln
end.

const n=10;
Var mas:array[1..n] of integer;
    i:integer;
Begin
randomize;
for i:=1 to n do
begin
mas[i]:=random(10)-5;
write(mas[i]:3);
end;
writeln;
readln;
for i:=1 to n do
if mas[i]=0 then mas[i]:=mas[i]-1;
for i:=1 to n do
write(mas[i]:3);
writeln;
readln;
end.

var Y:array[1..100] of real;
i,a,n:integer;
begin
repeat
writeln('Размерность массива? [1..100]');
readln(n);
until n in [1..100];
for i:=1 to n do 
readln(y[i]);
for i:=1 to n do
if y[i]=0 then y[i]:=-1;
for i:=1 to n do
write(y[i],' ');
end.