задача на массивы в паскале

составить ряд чисел от -4,5 до +3,5 с шагом 0,5

var

 a: real;

 i: integer;

 mas: array[0..999] of real;

begin

 a := -4.5;

 i := 0;

 while a <= 3.5 do

 begin

   mas[i] := a;

   a += 0.5;

   write(mas[i], ' ');

   i += 1;

 end;

end.