[Delphi] Wczytywanie z tekstu do tablicy

Witam!
Mam taki problem:
jak wczytać z bazy danych (pliku .txt) do tablicy liczby w odpowiedniej kolejnosci?
w pliku mam:
13; 20; 25; 30; 31; 34;
itd; itd; itd; itd; itd; itd;

Tablica ma byc 2 wymiarowa:
[1..5000, 1..6] of Integer;
po każdej linijce w bazie jest przejscie do następnego punktu tablicy1..5000
Wiem że na forum już to bylo ale ja nie rozumialem o co chodzilo z tym tab

--

---Zapraszamy na reklamy---
www.programy.wiktora.prv.pl

------Żegnamy reklamy-------

Co jest czyżby nikt nie wiedzial?
Bardzo prosze to jest mi potrzebne!!

--

---Zapraszamy na reklamy---
www.programy.wiktora.prv.pl

------Żegnamy reklamy-------

Zakladam ze cala sprawa polega na podzieleniu stringa na liczby wg średnikow, ale zakladam, ze liczby 1 cyfrowe beda wpisywane jako liczba 2 cyfrowa np. 01,02,03 :

[code]
var Plik:textfile;
Liczba,I,J,Licznik:integer;
S:String;
Tablica:array [1..5000,1..6] of word;

Begin
I:=1;

AssignFile(plik,'plik.txt');
Reset(Plik);

While not Eof(Plik) do
Begin
Readln(Plik,S);
Licznik:=1;
For J:=1 To 6 Do
Begin
Tablica[I,J]:=StrToInt(s[Licznik]+s[Licznik+1]);

    Inc(Licznik,3);

    If Licznik=19 then Licznik:=1;

  End; 

Inc(I);
End;
End;[/code]

Powinno dzialac

--
Umiem troche, ale nie wszystko :) a na koncu i tak BLUE SCREEN

ok ale czemu dajesz
if licznik=19 then licznik:=1;
?

--

---Zapraszamy na reklamy---
www.programy.wiktora.prv.pl

------Żegnamy reklamy-------

Bo musi sie zerowac, no ale chyba troche przesadzilem, moze byc chyba 18 albo 17. Bo tyle jest znakow w jednej lini w pliku.

--
Umiem troche, ale nie wszystko :) a na koncu i tak BLUE SCREEN