В произвольно заданном однородном массиве определить местоположение (то есть индексы) первого и последнего из всех отрицательных элементов — Pascal(Паскаль)

const
n=10;
var
i,k,t:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do
  begin
      a[i]:=10-random(20);
      write(' ',a[i]:3);
  end;
writeln();
writeln('-------');

 for i:=1 to n do {последний элемент}
  if a[i] < 0 then
   k:=i;
 
 writeln(k);
 
 for i:=n downto 1 do {первый элемент}
  if a[i] < 0 then
   t:=i;

 writeln(t);
writeln('-------');


end.