Помогите составить программу на ТР

[ЖекаМ]

Составить программу,использующую перечисляемый тип данных и оператор CASE В программе вводится информация о загрузке станка в цехе в дни недели и выводится суммарная загрузка станка с указанного дня

[fbus]

в аську пиши, сделаю

[ViNcHeStEr]

Вот сделал:

program Stanok;
uses crt;
const
n=7;
var
mas:array[1..n] of integer;
den:array[1..n] of string;
i,k,s:integer;
begin
clrscr;
den[1]:='Ponedelnik';
den[2]:='Vtornik';
den[3]:='Sreda';
den[4]:='Chetverg';
den[5]:='Pyatnitsa';
den[6]:='Subbota';
den[7]:='Voskresenie';
write('Vvedite zagruzhennost stanka v ponedelnik: '); readln(mas[1]);
write('Vvedite zagruzhennost stanka vo vtornik: '); readln(mas[2]);
write('Vvedite zagruzhennost stanka v sredu: '); readln(mas[3]);
write('Vvedite zagruzhennost stanka v chetverg: '); readln(mas[4]);
write('Vvedite zagruzhennost stanka v pyatnitsy: '); readln(mas[5]);
write('Vvedite zagruzhennost stanka v subbotu: '); readln(mas[6]);
write('Vvedite zagruzhennost stanka v voskresenie: '); readln(mas[7]);
writeln;
writeln;
for i:=1 to n do begin
writeln(den[i],' - ',mas[i],' %');
end;
writeln;
writeln;
write('Vvedite den nedeli [1..7]: '); readln(k);
case k of
1:begin writeln(den[1]);
for i:=1 to n do begin
s:=s+mas[i];
end;
writeln(den[1],' - ',s,' %');
end;
2:begin writeln(den[2]);
for i:=2 to n do begin
s:=s+mas[i];
end;
writeln(den[2],' - ',s,' %');
end;
3:begin writeln(den[3]);
for i:=3 to n do begin
s:=s+mas[i];
end;
writeln(den[3],' - ',s,' %');
end;
4:begin writeln(den[4]);
for i:=4 to n do begin
s:=s+mas[i];
end;
writeln(den[4],' - ',s,' %');
end;
5:begin writeln(den[5]);
for i:=5 to n do begin
s:=s+mas[i];
end;
writeln(den[5],' - ',s,' %');
end;
6:begin writeln(den[6]);
for i:=6 to n do begin
s:=s+mas[i];
end;
writeln(den[6],' - ',s,' %');
end;
7:begin writeln(den[7]);
for i:=7 to n do begin
s:=s+mas[i];
end;
writeln(den[7],' - ',s,' %');
end;
else
begin
writeln('Takogo dnya nedeli ne suschestvuet!');
end;
end;
readkey;
end.