[ghetto]

привет всем
возникла такая проблема:
например такой текст:
lon="54.897645"

думал так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
p:integer;
e:integer;
s:string;
a:textfile;

begin
assignfile(a,'D:\test.gpx');
reset(a);
while not EOF(a) do
begin
readln(a,s);
if Pos('lon="', s) > 0 then
begin
read(a,p);

end;
end;
end;
end.

нужно считать в переменную цифры в ковычках
помогите плиз