помогите с паскалем?)

Question

Дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры, и величина N. Отрицательные элементы заменить на N. Измененный массив вывести на экран одной строкой.

Виктория Шиликова · Accepted Answer

Program diman_karman; 
var array:T[1..10] of real:N,I:integer; 
begin 
for I=1 to 10 do begin 
writeln(',T[I:3],=');readln(T);end; 
writeln(',N,=');readln(N); 
for I=1 to 10 do begin 
if T<0 then T:=N;end; 
for I=1 to 10 do begin 
write(',T[I:3],=');end; 
end. 
Должно быть так 
Не получается изменить, я тебе сообщением кину