Паскаль. DrawPoly

[Rifler]

Здаствуйте!
Вопчем задача такая - написать аналог Паскалевкой DrawPoly с использованием нетипизированного параметра. Напомню что в ПАскале эта процедура выглядит так

Procedure DrawPoly(N:Word;var Points)

- где N - кол-во точек излома, включая обе крайние точки. Points - переменная типа PointType, содержащая координаты точек излома.

Я вот тут накалякал, вроде работает, но уверен что неправильно, так как в НЕтипизированные параметры не въехал абсолютно. Помогите пожалуста

 uses graph;
 const gran = 10;
 type index = 1..gran;
      PP_tip = record
        x,y : Word ;
      end;
 var d, m : integer;
     mas_lin : array[index] of PP_Tip;
     i: word;

procedure Draw (Num : word);
begin
 for i:= 2 to Num do
      line(mas_lin[i-1].x, mas_lin[i-1].y, mas_lin[i].x,mas_lin[i].y);


end;

begin
  d:=0;
  m:=0;
  InitGraph(d, m,'d:\BP7\BGI');;
  randomize;
  for i := 1 to gran do
    with mas_lin[i] do
      begin
        x := random(634)+1;
        y := random(469)+5;
      end;
  Draw(gran,mas_lin);
 
  readln;
  CloseGraph;
end.

[Леся]

Пожалуйста, помогите решить 2 задачки! Это ОЧЕНЬ ОЧЕНЬ СРОЧНО!!!
1)Составить функцию, которая вычисляет объём и площадь куба.
2)Написать процедуру, которая упорядочит одномерный массив в порядке
возростания.