Что изменить в коде?

[lider24816]

Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить максимальное по абсолютному значению число в данной последовательности.

procedure TForm1.Button1Click(Sender: TObject);
Var
o,r,a:ansistring;
b,c,f,g:integer;
Begin
a:=edit1.Text;
c:=0;
g:=0;
For b:= 0 to length(a) do begin
r:=copy(a,b,1);
If r='*' then begin
o:=copy(a,b-c,c);
c:=0;
f:=strtoint(o);
if (g=0) and (f>0) then
g:=f;
if (f>0) and (f<g) then
g:=f;
end
else begin
if b<2 then begin
c:=1;
end
else begin
c:=c+1;
end;
end;
end;
Label1.Caption:=inttostr(g);
end;
end.

[Скандербег]

procedure TForm1.Button1Click(Sender: TObject);
var
  o,r,a : ansistring;
  b,c,f,g : integer;
Begin
  a := edit1.Text;
  c := 1;
  g := 0;
  For b := 1 to length(a) do begin
    r := copy(a, b, 1);
    If (r = '*') or (r = '0') then begin
      o := copy(a, c, b-c);
      c := b + 1;
      if TryStrToInt(o, f) and (g < f) then
        g := f;
    end;
  end;
  Label1.Caption := inttostr(g);
end;