Не могу понять в чем ошибка (delphi 7 )

Question

if (a[1] = 'c') and (a[2] = 'o') and (a[3] = 'n') and (a[4] = 'n') and (a[5] = 'e') and (a[6] = 'c') and (a[7] = 't') then 
 begin 
 b:= Length(a) - 8; 
 
 for i:= 1 to b-1 do 
 begin 
 ip:= a[i+8]; 
 end; 
 
 WriteLn(ip); 
 end; 
 
Когда я например пишу connect 12345 то она быстро пишет что то там и закрывается

Я НЕПРАВИЛЬНО СКОПИРОВАЛ КОД

Сергей Клишин · Accepted Answer

приплыли. консольку скомпиляли? так с консоли и пускайте. 
 
PS. If доставил, спасибо, на весь день хорошее настроение :)