Unit <имя модуля>;
 
Interface
 
Implementation
 
End.

Interface
 
{подключаемые модули}
Uses
  AnotherUnit;
 
{константы}
Const
  PI=3.14159265;
  E=2.71828182;
 
{пользовательские типы данных}
Type
  TMyType=array[-3..7] of real;
 
{переменные}
Var
  temp:TMyType;
 
{процедуры и функции}
Procedure Fill(var x:TMyType);
Function Find(const x:TMyType; const Value:real):Boolean;
 
Implementation

Unit DemoUnit;
 
Interface
 
{прототип процедуры}
Procedure Swap(var a,b:integer);
 
Implementation
 
{реализация процедуры}
Procedure Swap;
Var
  Temp:integer;
Begin
  Temp:=a;
  a:=b;
  b:=Temp;
end;
 
end.

Unit DemoUnit;
 
interface
 
{прототип функции}
Function GetMax(a,b:integer):integer;
 
Implementation
 
{реализация функции}
Function GetMax(a,b:integer):integer;
Begin
  If a>b then GetMax:=a
  Else GetMax:=b;
End;
 
End.

Unit DemoUnit;
 
Interface
 
Const
  N=50;
 
Var
  Roots:array[1..N] of real;
 
Implementation
 
Uses
  Math;
 
Var
  I:integer;
 
{тело модуля}
Begin
  For i:=1 to N do Roots[i]:=sqrt(i);
End.

unit DemoUnit;
 
interface
 
var
  a:array[1..20] of ^integer;{массив указателей}
 
implementation
 
{выделение памяти и инициализация значениями}
procedure AllocateArray;
var
  i:integer;
begin
  for i:=1 to 20 do
  begin
    New(a[i]);
    a[i]^:=i;
  end;
end;
 
{освобождение памяти}
procedure DeallocateArray;
var
  i:integer;
begin
  for i:=1 to 20 do Dispose(a[i]);
end;
 
initialization
  AllocateArray;{инициализация - начало работы - выделяем память}
 
finalization
  DeallocateArray;{финализация - конец работы - осовобождаем память}
 
end.