Работа со строками ComboBox.

[om3n]

Помогите подсчитать количество end'ов и begin'ов. Попытался написать, но ничего не вышло.

Составить программу, которая читает построчно текст другой програм-мы (ввести с клавиатуры) на языке Pascal, подсчитывает количество ключевых слов «begin» и «end», и выводит на экран соответствующее сообщение.

procedure TForm1.FormActivate(Sender: TObject);
begin
ComboBox1.SetFocus;
end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 begin
 ComboBox1.Items.Add(ComboBox1.Text);
 ComboBox1.Text:=' ';
 end;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
var
s:array [1..5] of string[10];
st,s1:string;
n,j,i,nst,ind,k,p:integer;
begin
j:=0;
k:=0;
p:=0;
n:=0;
ind:=0;
nst:=ComboBox1.ItemIndex;
st:=ComboBox1.Items[nst];
j:=pos('begin',st);
for i:=1 to length(st) do
begin
s[n]:=s[n]+st[i];
case ind of
0:if st[i]<>' ' then begin
ind:=1;
n:=n+1;
end;
1:if st[i]=' ' then
ind:=0;
end;
end;
Label3.Caption:=IntToStr(n);
for i:=1 to n do
Label5.Caption:=IntTostr(k);
{1:if st[i]=' ' then
ind:=0;
2:if ms[i]<>' ' then begin
j:=j+1;
j:=pos('begin',st);
end;
end;
Label5.Caption:=IntToStr(j);  }
end;
end.