Введите строку из 5 чисел компьютер должен определить отрицательные числа

Var 
  a:array[1..5] of integer; 
  i:integer;
begin 
  for i:=1 to 5 do readln(a[i]); 
  for i:=1 to 5 do if a[i] < 0 then write(a[i],' '); 
  writeln('- отрицательные'); 
  readln;
end.

Так?