program T11;
var
   Lat, Lon, dLat: real;
   i: integer;
begin
   lat:= '49° 20.500';
   lon:= '8° 8.756';
   dlat:= 1/60/30;

   WptsClear;
   for i:=0 to 9 do begin
     WptsAdd(Lat+dLat*i,Lon+dLat*i)
   end;
   WptsSaveCsv('KDB');

   WptsClear;
   WptsLoadCsv('KDB');
   Writeln(WptsCount);
   for i:=0 to WptsCount-1 do begin
      Lat:=WptsLat(i);
      Lon:=WptsLon(i);
      Writeln(i+1:2,' ',WGS84(Lat,Lon))
   end;
end.