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

[JuFsu]

Помогите а?


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

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

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

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

[Гость]

Program Vremena_menajutca;
uses crt;
type DenNedeli = (pn,vt,sr,cht,pt,sb,vs);
var i,l:integer; god:array [1..365] of DenNedeli; a,b:DenNedeli;
begin
clrscr;
      a:=pn;
      repeat
      for i:=1 to 365 do
      begin
      b:=succ(succ(a));
      Case ord(b) of
  1:write('pn':4);
  2:write('vt':4);
  3:write('sr':4);
  4:write('cht':4);
  5:write('pt':4);
  6:write('sb':4);
  7:write('vs':4);
      end;
      a:=succ(a);
      end;
      l:=l+1;
      until l>364;
      readkey;
end.   

Почему она работает? ы...нет в смысле, можно ее по другому сделать? ато кагто масло масленое получилось....

[Гость]

<cut out>...а ведь я снова не учел тот факт, что элементы должны принадлежать массиву god[i]
Щорт просто((( нужен хелп...сам не справлюсь....

М

Watch your language. -- Lapp