Одномерный массив. Необходимо заменить последний положительный элемент на второй элемент массива

[кумитэ]

Задача: Дан массив целых чисел из N элементов. Необходимо заменить последний положительный элемент на второй элемент массива.
Формат входных данных
В первой строке входного файла записано число N (2 <= N <= 1000). Во второй строке через пробел записаны N целых чисел, по модулю не превосходящих 10^5, - элементы массива.
Для тех кому необходимо решить такую задачу.
Могу поделиться своим решением.
var a: array[1..1000] of longint;
i, n: integer;
begin
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite(output);
readln (n);
for i:=1 to n do
begin
read(a[i]);
end;
for i:=n downto 1 do
if a[i]>0 then
begin
a[i]:=a[2];
break;
end;
for i:=1 to n do
write (a[i],' ');
close (input);
close (output)
end.

[kuy]

Извлекаеш из файла массив и вод код замены последнего положительного элемента на второй элемент массива:

const n=10;
var mas: array[1..n] of integer = (9,-4,3,-1,-9,-6,4,2,-8,-3);
    i,pol,temp: integer;
begin
 writeln('Mas1:');
 pol:=1;
 for i:=1 to n do
  begin
   write(mas[i]:4);
   if mas[i]>=0 then pol:=i;
  end;
 temp:=mas[2];
 mas[2]:=mas[pol];
 mas[pol]:=temp;
 writeln;
 writeln('Mas2:');
 for i:=1 to n do write(mas[i]:4);
 readln;
end.