Составить функцию, которая по величине угла в радианах возвращает величину этого угла в градусах - Pascal ABC

Формулировка задачи:

Ребят я в этом деле новичок, позарез нужно сдать лабораторную( Составляю функцию а результат выводит 0. С процедурой программа работала. А вот с функцией не хочет. В общем нужно ваше авторитетное мнение: 1. Правильно ли я решаю задачу? 2. Если правильно то где допущены ошибки? 3. Хотелось бы увидеть как должен выглядеть исправленный код =))) Заранее спасибо)

program prozedura_radian;{7.    Написать программу, которая по величине
угла в радианах возвращает величину этого угла в градусах.}
var a,b,grad:real;
Function radian(a:real):real;
  var grad:real;
  begin
    grad:=(180/pi)*a;
  end;
  
  begin
    writeln('Введите угол в радианах');
    readln(a);
    radian(grad);
    writeln('Угол в градусах равен ',radian(grad));
  end.

Решение задачи: «Составить функцию, которая по величине угла в радианах возвращает величину этого угла в градусах»

Листинг программы

program prozedura_radian;{7.    Написать программу, которая по величине
угла в радианах возвращает величину этого угла в градусах.}
Function radtograd(a:real):real;
begin
radtograd:=a*180/pi
end;
var a:real;
begin
writeln('Введите угол в радианах');
readln(a);
writeln('Угол в градусах равен ',radtograd(a):0:2);
end.

Объяснение кода листинга программы

Создается программа prozedura_radian для решения задачи по переводу углов из радиан в градусы.
В функции radtograd определяется формула для перевода угла из радиан в градусы: a*180/pi, где a - угол в радианах.
Переменная a инициализируется значением, введенным пользователем.
Выводится приглашение для ввода угла в радианах.
Считывается значение угла из радиан.
Вызывается функция radtograd с аргументом a и сохраняется результат в переменной radtograd.
Выводится результат перевода угла в градусы.
Программа завершается.