Помогите с задачами плз..., Задачи на 1-,2-мерный массивы Опции

[JuFsu]

Помогите а?


8.9. type ДеньНедели = (пн, вт, ср, чт, пт, сб, вс);
var год: array [1..365] of ДеньНедели;

Присвоить каждому элементу год[i] название того дня недели, на который
приходится i-й по счету день невисокосного года, если известно, что 1
января - среда (год[1] := ср; год[2] := чт; и т.д.).

9.30.
Программа. Определить, является ли заданная
целая квадратная матрица 10-го порядка ортоно-
рмированной, т.е. такой, в которой скалярное
произведение каждой пары различных строк равно
0, а скалярное произведение каждой строки на
себя равно 1.

Есть код к первой проге...но не могу понять в чем ошибка, ко второй проге тока тупо создан массив, на то фто делать дальше слегка не хватает серого вещества...

[Гость]

8_9

Program Vremena_menajutca;
uses crt;
type DenNedeli = (pn,vt,sr,cht,pt,sb,vs);
var i:integer; god:array [1..365] of DenNedeli; a:DenNedeli;
begin
clrscr;
       a:=pn;
       for i:=1 to 365 do
       begin
       god[i]:=succ(succ(a));
       a:=succ(a);
       writeln(god[i]);
       end;
readkey;
end.
 

9_30

Program OpToHopMupoBaHHocTb;
uses crt;
const n=10;m=10;
var massiv: array [1..n,1..m] of integer;i,j:integer;
begin
clrscr;
          writeln('BoT 3aqaHHblu MaccuB:');
          randomize;
          for i:=1 to n do
            begin
                for j:=1 to m do
                  begin
                    massiv[i,j]:=random(10);
                    write(massiv[i,j]:2);
                  end;
                  writeln;
            end;
            writeln;
readkey;
end.