Jak wczytać tekst z konsoli nie używając stringa

Moim zadaniem jest wczytanie tekstu jaki użytkownik wpisze w konsoli, ale muszę użyć do tego tablic, a nie stringów.
Próbowałem w ten sposób, ale nie działa:

        type str=array of char;

        procedure wczytaj_tekst(var tab: str);
        var stop: boolean; ch: char;
        begin
          while stop=false do
          begin
                read(ch);
                dodaj_znak(ch, tab);

                if ch=#13 then
                begin
                   read(ch);
                   if ch=#10 then
                   begin
                      stop:=true;
                      usun_ostatni(tab); // usuwa #13
                   end;
                end;
          end;
        end;

Z góry dzięki za jakiekolwiek pomysły!

procedure czytaj(var tab:str);
var ch:Char;
var L:Integer;
begin
  SetLength(tab,0);
  L:=0;
  while true do
  begin
    read(ch);
    if ch=#10 then Exit;
    if ch<>#13 then
    begin
      SetLength(tab,L+1);
      tab[L]:=ch;
      Inc(L);
    end;
  end;
end;

Można też tak:

Type TTab = Array[0..10] of Char;
     PTab = ^TTab;
Var Tab: PTab;
    C  : Char;
Begin
 GetMem(Tab, Length(TTab));
 Readln(PString(@Tab)^);
 For C in Tab^ Do
  Writeln(C);
 Readln;
End.

:>