Перевод кода из Turbo Pascal на Fortran

[abit-2010]

Требуется перевести данный код из Turbo Pascal на Fortran.

program ZAEC2;
uses crt;
const size=100;
var q,p : array [0..size] of record
                               xm,ym : real;
                            end;
    q_speed, p_speed,distance,i,n:integer;
    cosa,c,a:real;
begin
     q_speed:=5;
     p_speed:=10;
     distance:=100;
     i:=0;
     q[i].xm:=0;
     q[i].ym:=0;

     p[i].xm:=distance;
     p[i].ym:=0;

     while (i<=size) and (q[i].xm<=p[i].xm) do
     begin
          inc(i);

          q[i].xm:=i * q_speed * cos(45);
          q[i].ym:=q[i].xm;

          a:=distance - q[i].xm;
          c:=sqrt(sqr(a) + sqr(q[i].xm));
          cosa := a/c;
          p[i].xm:=i * p_speed * cosa;
          p[i].ym:=sqrt(sqr(i * p_speed) - sqr(p[i].xm));
          p[i].xm:=distance - p[i].xm;
     end;
     n:=i;
     clrscr;
     writeln('Dog trajectory:');
     for i:=0 to n do writeln(i,') x=',p[i].xm:0:1,'; y=',p[i].ym:0:1);
     readln;
end.