Заменить все элементы массива равные 7 единицами

program z_2;
uses crt;
var
i:integer;
mass: array [1..9] of integer;
begin
randomize;
writeln('Pervonachalnui massuv:');
for i:=1 to 9 do
begin
mass[i]:=random(6)+2;
write(mass[i],' ');
end;
writeln;
writeln('Vuxodnoi massuv:');
for i:=1 to 9 do
begin
if mass[i]<5 then  begin
mass[i]:=0;
end;
writeln(mass[i]);
end;
readkey;
end.

program z_1;
uses crt;
var
i:integer;
mass: array [1..7] of integer;
begin
randomize;
writeln('Pervonachalnui massuv:');
for i:=1 to  7 do
begin
mass[i]:=random(5)+5;
write(mass[i],' ');
end;
writeln;
writeln('Vuxodnoi massuv:');
for i:=1 to 7 do
begin
if mass[i]=7 then  begin
mass[i]:=1;
end;
writeln(mass[i]);
end;
readkey;
end.

write(mass[i],' ');
end;
readkey;
end.

program z_3;
uses crt;
var
i:integer;
mass: array [1..10] of integer;
begin
randomize;
writeln('Pervonachalnui massuv:');
for i:=1 to  10 do
begin
mass[i]:=random(10)-5;
write(mass[i],' ');
end;
writeln;
writeln('Vuxodnoi massuv:');
for i:=1 to 10 do
begin
if mass[i]<0 then  
mass[i]:=0
else mass[i]:=mass[i]*2;
write(mass[i],' ');
end;
readkey;
end.