Arreglo que da números negativos

Algoritmo sin_titulo
 Dimension arreglo[10]
 Para i<-1 hasta 10 Con Paso 1 Hacer
  Leer num
  arreglo[i]<-num
 FinPara
 Para i<-1 hasta 10 Con Paso 1 Hacer
  Escribir arreglo[i]
 FinPara
 Borrar Pantalla
 Para i<-1 Hasta 10 Con Paso 1 Hacer
  si arreglo[i]<0 Entonces
   Escribir arreglo[i]
  SiNo
   Escribir "No son negativos"
  FinSi
 FinPara
FinAlgoritmo