Не могу разобраться в нескольких строчках исходного кода

program Clock;
 
uses
  GraphABC, Timers, System;
 
var
  Rad         : integer    := 200;
  S           : integer;
  BigLines    : array[0..12, 0..3] of integer;
  LittleLines : array[0..60, 0..3] of integer;
  COORD       : array[0..60, 0..5] of integer;
  Date1       : DateTime;
 
procedure TimerProc;
begin
  Date1 := DateTime.Now;
  Window.Clear;
  for var i := 0 to 12 do 
  begin
    Line(BigLines[i, 0], BigLines[i, 1], BigLines[i, 2], BigLines[i, 3], clBlack);
  end;
  for var i := 0 to 60 do 
  begin
    Line(LittleLines[i, 0], LittleLines[i, 1], LittleLines[i, 2], LittleLines[i, 3], clBlack);
  end;
  SetPenColor(clBrown);
  Line(0, 0, COORD[Date1.Second, 4], COORD[Date1.Second, 5]);
  SetPenColor(clBlack);
  SetPenWidth(2);
  Line(0, 0, COORD[Date1.Minute, 2], COORD[Date1.Minute, 3]);
  case Date1.Minute of        //непонятно
    1..15:  S:= 1;               //непонятно
    16..30: S:= 2;              //непонятно
    31..45: S:= 3;              //непонятно
    46..59: S:= 4;               //непонятно
  end;
  Line(0, 0, COORD[Date1.Hour mod 12 *5 + S, 0], COORD[Date1.Hour mod 12 *5 + S, 1]);             //непонятно
  SetPenWidth(1);
  Redraw;
end;
 
begin
  LockDrawing;
  Window.Title := 'Часы';
  SetCoordinateOrigin(Window.Width div 2, Window.Height div 2);
    var t := new Timer(1000, TimerProc);
  t.Start(); 
    {Process }
  // Рисуем наш циферблат // Здоровые по 30
  for var i := 0 to 12 do 
  begin
   //
    BigLines[i, 0] := Round((Rad - 5) * Cos(((i * 30) - 90) * pi / 180));              //непонятно
    BigLines[i, 1] := Round((Rad - 5) * Sin(((i * 30) - 90) * pi / 180));               //непонятно
   //
    BigLines[i, 2] := Round((Rad + 5) * Cos(((i * 30) - 90) * pi / 180));              //непонятно
    BigLines[i, 3] := Round((Rad + 5) * Sin(((i * 30) - 90) * pi / 180));               //непонятно
   //
  end;
  // Рисуем наш циферблат // Маленькие по 6
  for var i := 0 to 60 do 
  begin
   //
    LittleLines[i, 0] := Round((Rad - 1) * Cos(((i * 6) - 90) * pi / 180));                 //непонятно
    LittleLines[i, 1] := Round((Rad - 1) * Sin(((i * 6) - 90) * pi / 180));                   //непонятно
   //
    LittleLines[i, 2] := Round((Rad + 1) * Cos(((i * 6) - 90) * pi / 180));                   //непонятно
    LittleLines[i, 3] := Round((Rad + 1) * Sin(((i * 6) - 90) * pi / 180));                   //непонятно
   //
   // Массивы для координат стрелок //
    // hours
    COORD[i, 0] := Round((Rad - 40) * Cos(((i * 6) - 90) * pi / 180));                         //непонятно
    COORD[i, 1] := Round((Rad - 40) * Sin(((i * 6) - 90) * pi / 180));                         //непонятно
    // minutes
    COORD[i, 2] := Round((Rad - 15) * Cos(((i * 6) - 90) * pi / 180));                        //непонятно
    COORD[i, 3] := Round((Rad - 15) * Sin(((i * 6) - 90) * pi / 180));                         //непонятно
    // seconds
    COORD[i, 4] := Round((Rad - 15) * Cos(((i * 6) - 90) * pi / 180));                          //непонятно
    COORD[i, 5] := Round((Rad - 15) * Sin(((i * 6) - 90) * pi / 180));                           //непонятно
  end;
end.