Процедуры и абсолютные переменные

[Mr.BL@CK]

Задан вещественный массив , его элементы – это значения углов в радианах. Сформировать для каждого значения элементы целочисленных массивов , которые определяют эти же углы в градусах, минутах и секундах.
Примечание. Секунды должны быть округлены до ближайшего целого значения. Интервалы значений: .
Рекомендация.
Обозначим через исходное значения угла в радианах, через b – то же в градусах (x и b – вещественные значения), через g, m, s – целочисленные значения градусов, минут и секунд. Тогда требуемое преобразование можно выполнить в следующем порядке:
b:=180*y/pi
g:=trunc(b)
b:=180*(b-g)/pi
m:=trunc(b)
b:=180*(b-m)/pi
s:=round(b)

Решить задание используя процедуры и абсолютные переменные.

Я вот начал, но дальше возникли проблемы - а именно - как расписать процедурой преобразование значение углов

 NmaxX = 100;           { макс.кол-во элементов в массиве Х }
    NmaxG = 200;           { то же для массива G }
    NmaxM = 300;           { то же для массива M }
   NmaxS = 300;           { то же для массива S}
    Enter = 13;            { код клавиши Enter }
    Escape = 27;           { код клавиши Escape }
    PressKey = 'Нажмите клавишу Enter';
Type
    Xar = array[1..NmaxX] of real;
    Gar = array[1..NmaxY] of integer;
    Mar = array[1..NmaxZ] of integer;
	Sar = array[1..NmaxX] of integer;
	
	Var
    nX,nM,nG,nS: integer;    { кол-во эл-тов в массивах X,M,G,S}
	b,x :real;
	g,m,s : integer;
	
    Reply : char;          { символ ответа на запрос программы }
    X : Xar;               { исходный массив X }
    G : Gar;               { исходный массив G }
    M : Mar;                { исходный массив M }
    S :	Sar;               { исходный массив S }
    FileX :text           { исходные файлы }
{ --------------------------------------------------------- }
Procedure WaitEnter;
{ Задержка выполнения программы до тех пор, }
{ пока не будет нажата клавиша Enter        }
Var ch : char;
Begin
  Repeat ch:=ReadKey;
  Until ord(ch) = Enter;
End { WaitEnter };
{ ------------------------------------------------------------- }
Procedure PrintString(X,Y:integer; S:string);
{ Печать строки S с позиции X строки экрана с номером Y }
Begin
  GotoXY(X,Y);
  Write(S);
End { PrintString };
{ ------------------------------------------------------------- }
Procedure PrintKeyAndWaitEnter;
{ Печать строки-константы PressKey с позиции 1 строки экрана 25 }
{ и задержка выполнения программы до нажатия клавиши Enter      }
Begin
  PrintString(1,25,PressKey);
  WaitEnter;
  ClrScr;
End { PrintKeyAndWaitEnter };
{ ------------------------------------------------------------- }
Procedure ControlPageScreen(Var j,KeyExit:byte);
{ Контроль размера страницы на экране }
Const LengthPage = 23;  { кол-во строк на одной странице }
      S = 'След.страница - "Enter", конец просмотра - "Escape"';
Var ch : char;
Begin
  Inc(j); KeyExit:=0;
  If j=LengthPage then
    Begin
      j:=0;
      PrintString(1,25,S);
      Repeat
        ch:=ReadKey; KeyExit:=ord(ch);
      Until (KeyExit=Enter) or (KeyExit=Escape);
      ClrScr;
    End;
End { ControlPageScreen };
{ ------------------------------------------------------------- }
Procedure ReadArray(Var FileArray:text; Var A; Var n:integer);
{ Ввод исходного массива }
Type RealAr = array[1..2*MaxInt div SizeOf(real)] of real;
Var  i : integer;
Begin
  Reset(FileArray);
  n:=0;
  While not SeekEof(FileArray) do
    Begin
      Inc(n);
      Read(FileArray,RealAr(A)[n]);
    End;
  Close(FileArray);
End { ReadArray };
{ ------------------------------------------------------------- }
Procedure ScreenArray(Var A; n:integer; S:string);
{ Вывод исходного массива на экран }
Type RealAr = array[1..2*MaxInt div SizeOf(real)] of real;
Var  i : integer;
    j,k,KeyExit : byte;
Begin
  ClrScr; j:=0; k:=0;
  Writeln(S);
  For i:=1 to n do
    Begin
      Inc(k);
      If k<5 then
        Write(RealAr(A)[i]:8:2,' ':4)
      Else
        Begin
          k:=0; Inc(j);
          Writeln(RealAr(A)[i]:8:2);
          ControlPageScreen(j,KeyExit);
          If KeyExit=Escape then Exit;
        End;
    End;
  If k>0 then Writeln;
  PrintKeyAndWaitEnter;
End { ScreenArray };
{ ------------------------------------------------------------- }

[Utkin]

Что такое абсолютные переменные? Не глобальные?

[Mr.BL@CK]

Я тут побывал на занятии - в общем моя задача упрощена
теперь лишь нужно написать процедуру , которая будет переводить радианы в градусы и минуты и т.д.
использовать нужно b:=180*y/pi
g:=trunc(b)
b:=180*(b-g)/pi
m:=trunc(b)
b:=180*(b-m)/pi
s:=round(b)

вот тут я пас (