Pascal - tablica, jak sprawdzic ilość znaków

Witam, mam taki problem, że muszę wczytać niewiadomą ilość znaków do tablicy typu char, i muszę wiedzieć ile tych znaków się wczytało. W kodzie to wygląda tak:

var tab:array[1…2000] of char;

begin

read(tab);

i powiedzmy że ktoś poda ciąg znaków “alamakot” i teraz moje pytanie jest takie: Jak ustalic ilość zapisanych pól w tablicy ?? (Muszę tą ilość wyznaczyc ponieważ później muszę wypisać połowę tego ciągu znaków czyli “alam”). Pomoże ktoś ??

Możesz najpierw do wszystkich komórek wpisać np. “0” a potem zapuścić pętlę, która policzy ile jest znaków do pierwszego “0”. Ale to się nie sprawdzi jak w tekście trafi się 0.

Nic innego nie przychodzi mi teraz do głowy.