Помогите составить программу на Pascal.

Можно по -разному реализовать программу, я например так вот сделал. Реализовывал в среде Turbo Pascal. Все работает.

program massiv;
var mas: array[1..10] of integer;
i,max:integer;
begin
max:=0;
writeln ('Vvedite massiv');
for i:= 1 to 10 do
begin
readln (mas);
if mas > max
then max:= mas;
end;
write ('Noviy massiv: ');
for i:= 1 to 10 do
begin
if mas < 0
then
begin
mas:=max;
write (mas,', ')
end
else
write (mas,', ');
end;
readln;
end.

блииииииииииииин (( тут не все символы правильно вставились (((( если вопрос еще актуален, напишите мне в личку, я скину нормальный листинг программы

легкая программа. жалко что англ. буквами ответ не принимается. сначало найти макс.
потом условие если эл-т отриц-й - то присвоить ему значение макс.

var mas : array [1..10] of integer;
i:byte;
max:int;
begin
max:= mas[1];
for i:= 1 to 10 do
if mas > max
then max:= mas;
for i:= 1 to 10 do
if mas < 0
then mas:=max;
end.

как то так))

Program Massiv;
var a : array [1..10] of integer;
i : integer;
begin
For i:=1 to 10 do
begin
a[ i ] := Random(40) - 20;
end;
b :=a [ 1 ];
For i:=1 to 10 do
begin
if b < a [ i ] then b := a [ i ];
end;
For i:=1 to 10 do
begin
if a[ i ] < 0 then a[ i ] := b;
end.
Как - то так, на работоспособность не проверял.