PROCEDIMIENTOS

Un procedimiento es un grupo de sentencias que realizan una tarea concreta. En lugar de reescribir el código completo de esa tarea cada vez que se necesite, únicamente se hace una referencia al procedimiento. Estos pueden recibir o enviar información el programa principal, técnicamente se conoce como PASO DE PARAMETROS, que puede ser POR TRANSFERENCIA o POR VALOR.
SintaxisProcedure NOMBRE_DEL_PROCEDIMIENTO
CONSTANTES
TIPOS
VARIABLES
PROCEDIMIENTOS Y FUNCIONES
BEGIN
{Bloque de instrucciones}END;

Este sencillo programita ilustra la forma de utilizar procedimientos sencillosprogram Procedimientos_sencillos;
procedure Nombre;
begin
Writeln('Este Robot aun no tiene nombre');end;procedure Direccion;
begin
Writeln('C:\mis documentos\imágenes\caricaturas\');end;procedure Telefono;
begin
Writeln('0000 sin corriente');end;begin{Inicio del programa principal}
{Se invocan los diferentes procedimientosDeclarados anteriormente}Nombre;
Dirección;
Telefono;
Readln;end. {Final del programa principal}

Ahí te va otro ejemplo:program Otro_procedimiento_sencillo;
var Contador : integer;
procedure Escribe_el_titulo;
begin
Writeln('Este es el Título');end;procedure Escribe_un_mensaje;
beginWriteln('Este es el mensaje y el contador es ',Contador);
end;procedure Escribe_el_final;
begin
Writeln('Este es el mensaje final');end;Begin {Inicio del programa principal}
Escribe_el_titulo;
for Contador := 1 to 10 do Escribe_un_mensaje;{Observa detenidamente este ciclo FOR, como tiene una sola instrucción no lleva ni BEGIN ni END}Escribe_el_final;End. {Final del programa principal}