Pascal/Turbo Pascal - registro de forma numerada

el ejercicio es este :
========================================
leer un conjunto de registro que contienen la longitud y anchura de varios rectangulos el objeto es producir una lista con lineas numeradas consecutivamente que den la longitud L. el ancho w y el area A . unicamente de aquellos rectangulos cuyo perimetro sea mayor que 12 ...

=========================================

y esto es lo que llevo
========================================

program ejercicio58;
uses crt;
var
L,W,A,C1,integer;

BEGIN
CLRSCR;

begin
write('Indtroduzca la longitud del rectangulo # ',i);
readln(L);
write('Introduzca el anchodel rectangulo # ', i);
readln(W);
If 2*(L + W) > 12 then
begin
A:= (L*W);
C1:= (C1+1);
end
else
begin
writeln('El rectangulo no cumple con los requisitos minimos');
end;


end.

==================================

borre todo lo ke tenia que ver con los resultados porque eso es lo que me falta y no se como hacerlo... deseo hacer que imprima (muestre) los datos de forma numerada consecutivamente.
==================================