Работа с модулем Unit

Type
  TType = Integer; { Или любой другой тип }
 
  { Указатель на динамический массив }
  PDynArray = ^TDynArray;
  TDynArray = array[1 .. 1] of TType;
 
Var
  { Через эту переменную будет осуществляться вся работа с массивом }
  arr: PDynArray;
  min,imin,m,n, i: integer;
  sum:real;
Begin
  n:=20; { Вводится размер массива }
  {
    В "куче" запрашивается блок памяти с размером,
    достаточным для хранения N элементов типа TType
  }
  GetMem(arr, n * SizeOf(TType));
  Writeln('Введите способ ИНИЦИАЛИЗАЦИИ массива: ');
  Writeln('1. Сформировать массив (n = 20 элементов) по указанному правилу.');
  Writeln('2. Ввести значение с клавиатуры.');
  ReadLn(m);
  case m of
    1: For i := 1 To n Do
         arr^[i] := i*i-2 * i;
    2: For i := 1 To n Do
         readln(arr^[i]);
  end;
 
  (*** Начало работы с массивом ***)
  {
    Обращение к элементу динамического массива - почти такое же,
    как и к элементу обычного (статического) массива,
    за исключением операции "^" - разыменования ...
  }
  For i := 1 To n Do
    Write(arr^[i]:4);
  min:=arr^[1];
  imin:=1;
  sum:=0;
  For i := 1 To n Do
    begin
    sum:=sum+arr^[i];
    if arr^[i]<min then
      begin
        min:=arr^[i];
        imin:=i;
      end;
    end;
  writeln('Min: ',min,' index: ',imin);
  writeln('Average: ',sum/n:8:2);
  (*** Закончили работу с массивом - уничтожаем его ***)
  { Возвращаем память назад в "кучу" }
  FreeMem(arr, n * SizeOf(TType));
  readln;
End.

unit asd2;
{--------------------------------}
Interface
    const
        n = 20;
    Type
        TType = Integer; { Или любой другой тип }
        { Указатель на динамический массив }
        PDynArray = ^TDynArray;
        TDynArray = array[1 .. 1] of TType;
    procedure InitMass(var a : PDynArray; m : Byte);
    function InitType() : Byte;
    procedure PrintMass(a : PDynArray);
    function Summ(a : PDynArray) : LongInt;
{--------------------------------}
Implementation
    function Summ(a : PDynArray) : LongInt;
    var
        Result : LongInt = 0;
        i : Byte;
    begin
        for i := 1 to n do
            Result := Result + a^[i];
        Summ := Result;
    end;
    procedure InitMass(var a : PDynArray; m : Byte);
    var
        i : Byte;
    begin
        if (m = 1) then
            for i := 1 to n do
                a^[i] := i * i - 2 * i
        else
        begin
            Write('a[', i:2, ']=');
            ReadLn(a^[i]);
        end;
    end;
    function InitType() : Byte;
    var
        Result : Byte = 0;
    begin
        repeat
            Writeln('1. Сформировать массив (n = 20 элементов) по указанному правилу.');
            Writeln('2. Ввести значение с клавиатуры.');
            ReadLn(Result);
        until (Result in [1..2]);
        InitType := Result;
    end;
    procedure PrintMass(a : PDynArray);
    var
        i : Byte;
    begin
        WriteLn;
        for i := 1 to n do
            Write(a^[i], ' ');
        WriteLn;
    end;
end.

uses
    asd2, Crt;
 
var
    arr : PDynArray;
    min, imin : TType;
    i, m : Byte;
    sum : Real;
begin
    ClrScr;
    GetMem(arr, n * SizeOf(TType));
    m := InitType();
    InitMass(arr, m);
    PrintMass(arr);
    WriteLn('Summ=', Summ(arr));
    FreeMem(arr, n * SyzeOf(TType));
end.