Оформить вычисление самих функций и перевод угла из гр в рад в виде процедур (думаю, что функции подойдут).
Код:
function GradToRad(Grad : Double) : Double;
begin
...
end;
function F_Y(A, G : Double) : Double;
begin
...
end;
function F_X(A, G : Double) : Double;
begin
...
end;
Содержимое функций сам напишешь
