Ввод элементов массива!

[d00ker]

Написал программу, а как сделать так, чтобы при ручном вводе элементов массива, они вводились в строку - не помню Подскажите, пожалуйста.
Вот код программы:

program lab_2;
uses crt;
const
     k=5;
type
    mas=array[1..k] of real;
var
   a:mas;
   i,j:integer;
begin
     clrscr;
     writeln('Vvedite elementi massiva:');
     begin
          for i:= 1 to k do
          read(a[i]);
          writeln;
     end;
     write('Mesta: ');
     for i:= 1 to k do begin
         if a[i] < 0 then begin
            j:=j+1;
            a[i]:=0;end;
         begin
              if a[i]=0 then
                 write(i:2);
         end;
     end;
     writeln;
     write('Massiv: ');
     for i:= 1 to k do
         write(a[i]:3:0);writeln;
     writeln('Kolichestvo zamen: ',j);
end.

[Niro]

После ввода очередного элемента массива нажимай пробел, а не Enter

[d00ker]

Видать я еще не проснулся, раз так "ступил". Спасибо