Как сделать так чтоб не было в начале ни 0 ни пробела

           var
           f: text;
           a: array[1..1000] of real;
           n,i,j: integer;
           x:real;
           begin
                  assign(f, 'input.txt');
                  reset(f);
                  n:=0;
                  while not eof(f) do
                                          begin
                                                 n:=n+1;
                                                 read(f, a[n]);
                                          end;
                  close(f);
                             for i:=1 to n-1 do
                             for j:=i+1 to n do
                             if a[i]>a[j] then
                                                     begin
                                                            x:=a[i];
                                                            a[i]:=a[j];
                                                            a[j]:=x;
                                                      end;
                             assign(f, 'output.txt');
                             rewrite(f);
                             for i:=1 to n do
                             write (f, ' ' , a[i]);
                             close(f);
           writeln('Отсортированный массив записан файл output.txt');
           end.

write (f, ' ' , a[i]);

write (f,a[i], ' ');

while not seekeof(f) do

write (f,  a[i],' ');

while not seekeof(f) do