[chainik]

Код:

const
CDayWeek:array[1..7] of string=('Пн', 'Вт', 'Ср', 'Чт', 'Пт', 'Сб', 'Вс');


function GetNameOfDay(s:string):string;
begin
Result:=CDayWeek[StrToInt(s)];
end;

lmikle: пользуемся тегами!!!

А можно и совсем просто. Есть стандартная функция возвращающая день недели (см модуль DateUtil).......

Ну и неплохо бы защититься от неверного ввода.....