Помогите найти ошибку (delphi 7)

Пишу консольную программу :



Когда я например пишу connect 12345 то она быстро пишет что то там и закрывается...
В чем здесь проблема?

 

выход за границы массива скорей всего

 

условие:

Code:

if (a[1] = 'c') and (a[2] = 'o') ... and (a[7] = 't') then ...

это пздц конечно, проще какую-нибудь функцию из разряда pos заюзать, что типо этого:

Code:

if (pos('connect', a) = 1) then ...