нужен текст программы в TP 7.0

Я думаю вот так:
Type
day = (sun, mon, tue, wed, thu, fri, sat);
Var
d: day; n: integer;
Begin
Write (’ Введите номер n дня недели ’); readln(n);
Case n of
1: d:= mon;
2: d:= tue;
3: d:= wed;
4: d:= thu;
5: d:= fri;
6: d:= sat;
7: d:= sun
end;
writeln (’ Расписание: ’);
Case d of
mon: writeln(' пн - метрология, ОС, flash, англ. яз');
tue: writeln(' вт - матан, практика матан, матан');
wed: writeln(' ср-физика, ОАиП, экономика, ОАиП, физика');
thu: writeln(' чт-иследовани, матан, Flash, матан ') ;
fri: writeln(' пт-архитектура, русский, ОАиП, ОАиП, история ') ;
sat: writeln(' сб-экология, физ-ра');
sun: writeln(' выходной')
end;
End.

readln(wd);
case wd
'пн': writeln('метрология, ОС, flash, англ. яз');
'вт': writeln('матан, практика матан, матан');
..
'сб': writeln(экология, физ-ра');
end;

Так ничего сложного, за исключенем наличия русских букв. Они просто напросто не впишутся..

program ss;
var den:byte;
begin
writeln('расписание');
writeln('выбери день недели: ');
writeln('пн-1');
writeln('вт-2');
writeln('ср-3');
writeln('чт-4');
writeln('пт-5');
writeln('сб-6');
writeln('вс-7');
readln(den);
case den of
1:writeln('метрология, ОС, flash, англ. яз');
2:writeln('матан, практика матан, матан');
3:writeln('физика, ОАиП, экономика, ОАиП, физика');
4:writeln('иследовани, матан, Flash, матан');
5:writeln('архитектура, русский, ОАиП, ОАиП, история'):
6:writeln('экология, физ-ра');
7:writeln('На этот день нет расписания');
end;
readln;
end.

ну вот как то так