program IncreasePositiveElements;
var
arr: array[1..5] of Integer;
i: Integer;
begin
// Заполняем массив
arr[1] := 2;
arr[2] := -3;
arr[3] := 5;
arr[4] := -1;
arr[5] := 4;

// Увеличиваем положительные элементы на 1
for i := 1 to 5 do
begin
if arr[i] > 0 then
arr[i] := arr[i] + 1;
end;

// Выводим измененный массив
for i := 1 to 5 do
begin
Write(arr[i], ' ');
end;
end.