Составить процедуру и функцию, которая по заданному номеру месяца печатает название времени года - Turbo Pascal

const
  Seasons: array [0..3] of String[5] = ('зима','весна','лето','осень');
function Season(n: Integer): String;
begin
  Season:=''; if n in [1..12] then Season:=Seasons[(n mod 12) div 3];
end;
procedure GetSeason(n: Integer; var s: String);
begin
  s:=''; if n in [1..12] then s:=Seasons[(n mod 12) div 3];
end;
var n: Integer; s: String;
begin
  Write('Номер месяца: '); ReadLn(n); GetSeason(n,s);
  WriteLn('Сезон: ',s,' ',Season(n));
end.