Пожалуйста, помогите исправить ошибку: procedure TForm1.btn1Click(Sender: TObject); var i,a,n,b, z:integer; strok

var i,a,n,b, z:integer;
stroka, res:string;
s:array [1..30] of char ;
result:array [1..30] of char ;
begin
stroka:= mmo1.Lines[0];
n:=Length(stroka);
for i:=1 to n do
s:=stroka;

z:= 0;
for i:=1 to Length(stroka) do
begin
if(s = '*') then
if(z = 0) then begin
a:=i;
z:=1;
end
else begin
b:=i;
z:=2;
Break;
end
else
begin
if(z = 1) then
result:= s;
end;

end;

for i:=a+1 to b-1 do begin
mmo2.Text:=mmo2.Text + result;
end;