Функции (пример описания)

 function Max(a: Vector; n: integer): extended;
             var
              x: extended;
              i: integer;
             begin
               x := a(1);
               for i := 2 to n do if x < a[i] then x := a[i];
               Max := x;
             end;

             function Power(x: extended; y: integer): extended;
             var
               z: extended;
               i: integer;
             begin
               z := 1.0; i := y;
               while i > 0 do
             begin
               if Odd(i) then z := z*x;
               x := Sqr(x);
             end;
             Power := z;
             end;