Code:

program Bogenschnitt;

VAR
 Lat1, Lon1, Lat2, Lon2, s1, s2, Lat3, Lon3, Lat4, Lon4: real;
 Dist1, Dist2, Dist3, Dist4, Dist5: real;
begin

  lat1 := '47 42.326';
  lon1 := '7 40.655';
  lat2 := '47 42.109';
  lon2 := '7 40.733';
  s1 := 432;
  s2 := 320;

 if Bogenschnitt(Lat1, Lon1, Lat2, Lon2, s1, s2, Lat3, Lon3, Lat4, Lon4) then
 begin
  writeln(WGS84(Lat3,Lon3));
  writeln(WGS84(Lat4,Lon4));
   Dist1 := Distance(lat1, lon1, lat2, lon2);
   Dist2 := Distance(lat1, lon1, lat3, lon3);
   Dist3 := Distance(lat1, lon1, lat4, lon4);
   Dist4 := Distance(lat2, lon2, lat3, lon3);
   Dist5 := Distance(lat2, lon2, lat4, lon4);
 
 writeln(Dist1);
 writeln(Dist2);
 writeln(Dist3);
 writeln(Dist4);
 writeln(Dist5)
 
 end;
end.

Code:

N 47° 42.2027 E 7° 40.9480
N 47° 42.1258 E 7° 40.4784
413.7847750
431.8030715
431.6984745
320.1216888
319.9807779