Prečítanie údajov zo súbora v riadku

//Program vygeneruje n cisiel a zapise ich do jednoho riadku a cisla budu oddelene medzerou
program ncisiel;
{$APPTYPE CONSOLE}
uses SysUtils;
var r:text;
    n,i,c:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  assign(r,'cisla.txt');
  write('Kolko chcete vygenerovat cisiel?: ');
  readln(n);
  randomize;
  rewrite(r);
  randomize;
  for i:=1 to n do
    begin
      c:=random(100);
      if i<>n then write(r,c,' ') else write(r,c);
    end;
  close(r);
  reset(r);
  while not eof(r) do
    begin
      while not eoln(r) do
        begin
          read(r,c);
          writeln(c);
        end;
    end;
  close(r);
  readln;
end.