Определить номер последнего отрицательного числа в последовательности

program Dekio;
const
n=30;
var
mas :array[1..n] of integer;
i,j,t :integer;
sort :boolean;
begin
randomize;
sort:=false;
writeln('Èñõîäíûé ìàññèâ');
for i:=1 to n do
begin
mas[i]:=random(100);
write(mas[i],' ');
if (mas[i] mod 10) + (mas[i] div 10) = 12 then
sort:=true;
end;
if sort then
for i:=1 to n-1 do
for j:=i+1 to n do
if mas[i] < mas[j] then
begin
t:=mas[i];
mas[i]:=mas[j];
mas[j]:=t;
end;
writeln;
writeln('Ðåçóëüòàò');
for i:=1 to n do
write(mas[i],' ');
end.

program Dekio;
const
n=20;
var
mas :array[1..n] of integer;
i,k :integer;
begin
for i:=1 to n do
begin
mas[i]:=random(30)-5;
write(mas[i],' ');
if mas[i]<0 then
k:=i;
end;
writeln;
writeln('Последний отрицательный элемент ',mas[k],' под индексом ',k);
end.