Unitlerin kullanıldığı diğer bir yer ise birden fazla programda kullanılan ve sürekli olarak bütün değerlerini muhafaza eden değişken sabit ve tipleri tanımlamada kullanılırlar.

Bir unit interface ve implementation olmak üzere iki bölümden oluşur.Interface bölümünde bu uniti kullanan program tarafından kullanılacak olan değişken sabit procedure ve function alt programlar yazılır. Ayrıca bu bölümde bu unit programın kullanacağı hazır unitler ve kullanıcı unitleri de USES komutu ile tanıtılır.Implementation bölümünde ise geçerli unit içinde bulunan ancak ana program tarafından kullanılmayan alt programlar yazılır. Burada değişken sabit ve tip tanımlamaları da yapılabilir. Burada yapılan tanımlamalar sadece unit içerisinde geçerlidir.

unit f;
interface
function faktorıyel(i:integer):real;
implementation
function faktorıyel(i:integer):real;
var
k : integer; l : real;
begin l:=1
for k:=1 to i do l:=l*k;
faktoriyel:=l;end;end.
uses crt; { ana program}
var
mt : integer;
begin clrscr;
write(‘faktoriyeli alınacak sayıyı giriniz’);
readln(m);
writeln(faktorıyel(m));
readln;
end.
Örnek 2: Ana programdan girilen bir sayının ana programdaki seçime göre karekökünü veya karesini alan bir Unit’in hazırlanması.
unit kk;
interface
procedure kare(var x:real);
procedure karekok(var x:real);
implementation
procedure kare(var x:real);
begin x:=x * x; end;
procedure karekok(var x:real);
begin
x:= sqrt(x); end; end.
uses crtkk; { ana program}
var
sayi : real; isec : integer;
begin clrscr;
write(‘sayıyı giriniz’); readln(sayi);
writeln(‘1-karesi’);writeln(‘2-karekok’);
writeln(‘seçiminiz=?’); readln(sec);
case sec of
1 : kare(sayi);
2 : karekok(sayi);
else writeln(‘hatalı seçim yaptınız’); end;
wrıteln(sayi); readln; end.