Код:
const
CDayWeek:array[1..7] of string=('Пн', 'Вт', 'Ср', 'Чт', 'Пт', 'Сб', 'Вс');
function GetNameOfDay(s:string):string;
begin
Result:=CDayWeek[StrToInt(s)];
end;
lmikle: пользуемся тегами!!!
А можно и совсем просто. Есть стандартная функция возвращающая день недели (см модуль DateUtil).......
Ну и неплохо бы защититься от неверного ввода.....