Hans

Prosedur adalah program terpisah dalam blok sendiri yang berfungsi sebagai sub programProsedur diawali dengan kata PROCEDURE pada bagian deklarasi. Prosedur dipanggil dan digunakan didalam blok program lainnya dengan cara menyebut nama prosedurnya.

Mendeklarasikan Prosedur

procedure name(argument(s): type1, argument(s): type 2, ... );
   < local declarations >
  begin
   < procedure body >
  end;

Contoh

procedure findMin(x, y, z: integer; var m: integer); 
  begin
   if x < y then
      m := x
   else
      m := y;
   
   if z 

Kode diatas dinamakan prosedur findMin(). Prosedur ini mengambil 4 paramater x,y,z dan m.

Memanggil Procedure

Ketika membuat sebuah procedure, kita harus memberikan tujuan prosdure untuk apa.Untuk menggunakan procedure, kita harus memanggil procedure tersebut untuk melakukan pekerjaan dalam procedure tersebut. Ketika program memanggil sebuah procedure,alur program berpindah ke procedure tersebut.
Untuk memanggil prosedur, kita tinggal memberikan paramater yang diperlukan dan nama procedure nya.

program exProcedure;
  var
   a, b, c,  min: integer;
  procedure findMin(x, y, z: integer; var m: integer); 
  (* Finds the minimum of the 3 values *)

  begin
   if x < y then
      m:= x
   else
      m:= y;
   
   if z < m then
      m:= z;
  end; { end of procedure findMin }  

  begin
   writeln(' Enter three numbers: ');
   readln( a, b, c);
   findMin(a, b, c, min); (* Procedure call *)
   
   writeln(' Minimum: ', min);
  end.

Ketika kode diatas dicompile dan dijalankan, maka akan menghasilkan :

Enter three numbers:
  89 45 67
  Minimum: 45