Pascal/Turbo Pascal - un ejercicio sencillo

tngo este ejercicio q es sencillo pero cuando lo programo no hace exactamente lo que quiero mira haber si a ti te sale. muchas gracias. lo que ya doy no se puede modificar ok?

Completar el siguiente programa para que asigne a la variable numeroNegativos el numero de enteros negativos almacenados en la variable t de tipo vector

const N=80;
type indice=1..N;
vector=array[indice] of integer;
var t:vector; i:indice; numeroNegativos:byte;
begin
for i:=1 to N do readln(t[i]);

{aqui completo el programa}

writeln('El numero de enteros negativos es : ', numeroNegativos)
end.

var t:vector; i:indice; numeroNegativos:byte; ¿byte para numeros negativos?

claro que byte porque numeroNegativos no toma el -6 por ejemplo sino que t dice que en tu dato array hay por ejemplo 10 numeros negativos no sabes cuales

const N=10;
type indice=1..N;
vector=array[indice] of integer;
var t:vector; i:indice; numeroNegativos:byte;
begin
for i:=1 to N do readln(t[i]);
{aqui lo que faltaba es, con un for, recorrer todo el vector buscando los números negativos, que de serlos se le suma 1 a numeroNegativos... se podría hacer a medida que se van ingresando los valores al vector, pero no lo hice dado que en este ejercicio en particular no se permite}
for i:=1 to N do
if(t[i]<0)then
numeroNegativos:=numeroNegativos + 1;

{aqui completo el programa}

writeln('El numero de enteros negativos es : ', numeroNegativos);
end.

Espero que te sea de utilidad. Un abrazo.