Прошу решить алгоритм по информатике (8 и 9 )смотреть вложения

Uses crt; procedure r(nazvanie: string; cvet: byte); begin textbackground(cvet); clrscr; gotoxy(windowwidth div 2-length(nazvanie) div 2,windowheight div 2); write(nazvanie); end; var n: byte; begin hidecursor; textbackground(0); clrscr; textcolor(15); gotoxy(windowwidth div 2-12,windowheight div 2); write('введите номер дня недели'); case readkey of '1':       r('понедельник',4); '2':       r('вторник',14); '3':       r('среда',2); '4':       r('четверг',9); '5':       r('пятница',1); '6':       r('суббота',13); '7':       r('воскресенье',12); else r('в неделе сейчас семь дней! ',0); end; readkey end.

Const     n = 4;     c = 7; var     a: array[1..n,1..n] of integer;     i,j: integer;     s: real; begin randomize; writeln('исходный массив: '); s: =0; for i: = 1 to n do       begin       for j: = 1 to n do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ');               if a[i,j] < c then s: =s+a[i,j];               end;       writeln       end; writeln('s = ',s); end.