Написать функцию, которая по номеру n определяет соответствующее название дня недели - Pascal

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

Написати функцию, которая по номеру n определяет соответствующее название дня недели. type день недели = (пн., вт., ср., чт., пт., сб., вос.); номер = 1..7; var n: номер; Как написать простую программу знаю(даже в учебнике есть)

Program E1;
Var
n:integer;
Begin
write('введите число интересующего вас дня: ');
ReadLn(n);
Case n Of
1:WriteLn('понедельник');
2:WriteLn('вториник');
3:WriteLn('среда');
4:WriteLn('четверг');
5:WriteLn('пятница');
6:WriteLn('суббота');
7:Writeln('воскресенье');
else writeln ('некорректное условие');
end;
End.

А как сделать через функцию?

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

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

program E1;
 
function day(n: byte): string;
var
  s: string;
begin
  case n Of
    1: s := 'понедельник';
    2: s := 'вториник';
    3: s := 'среда';
    4: s := 'четверг';
    5: s := 'пятница';
    6: s := 'суббота';
    7: s := 'воскресенье';
  else s := 'некорректное условие';
  end;
  day := s
end;
 
var
  n: integer;
 
begin
  write('введите число интересующего вас дня: ');
  ReadLn(n);
  writeln(day(n));
end.

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

В данном коде объявлена функция day, которая принимает один параметр n типа byte. Внутри функции используется переменная s типа string, которая инициализируется в зависимости от значения переменной n. Сначала идет проверка на то, что значение n не превышает 7 (так как в неделе всего 7 дней). Если это условие выполняется, то в переменную s записывается соответствующее название дня недели. В случае, если значение n выходит за пределы от 1 до 7, в переменную s записывается строка некорректное условие. Затем, функция возвращает значение переменной s. Далее, вне функции, объявлено переменная n типа integer, и с помощью функции readln(n) пользователю предлагается ввести число, которое будет передаваться в функцию day. После ввода числа, с помощью функции writeln выводится результат работы функции day(n).