[Pascal]Ile liczb w ciągu

Witam,
Mam do napisania program który ma wczytywać dowolny ciąg liczb. Sortowanie nie jest trudne ale problem sprawia mi wczytanie do tablicy liczb oddzielonych spacją.
Wczytanie liczb ma się odbyć z poziomu konsoli.

program odwrocenie;
USES CRT;
var tab: array[1..1000] of Integer;
i : Integer;
c1 : char;

begin
 i:=1;
 Repeat

  Read(tab[i]);
  i:=i+1;
  Writeln(i);
  c1:=readkey;
 Until c1=char(13);


 for i := 1 to 3 do
  Writeln(tab[i]);

end. 

Proszę o pomoc :)

Takie coś:

Until c1=char(13);

Rzutowanie jest tutaj niepotrzebne.

until c1=#13;

program odwrocenie;
USES CRT, SysUtils;
var tab: array of Integer;
i : Integer;
c1 : char;

begin
 i:=0;
 SetLenGth(Tab, 1);
 Tab[0] := 0;
 Repeat
  c1:=readkey;
  if c1 = #32 Then
  Begin
   Inc(I);
   SetLenGth(Tab, High(Tab) + 2);
  End Else
   Tab[i] := StrToInt(IntToStr(Tab[i]) + c1);
 Until c1=#13;

 for i := 0 to I do
  Writeln(tab[i]);

end.

Powinno działać.
Jakbyś nie chciał z tablicami dynamicznymi, to chyba sobie dasz radę przerobić.
Potem odpowiedz, jak będzie działać ;)

Nadal nie działa :/ z tego co się orientuję readkey wprowadza jedną cyfrę :/