Procedimientos (procedure) cargar y mostrar vector delphi

Los procedimientos al igual que las funciones son un conjunto de ordenes
dentro de un programa principal, pero.. LAS FUNCIONES tenian un trabajo que
se limitaba a procesar una informacion entrante y devolvernos
"UN SOLO RESULTADO" la funcion por si sola no podia pedir mas datos "read(x)"
o enviar mensajes de texto "write('hola mundo')" por lo que para tareas
mas complejas

En otras palabras "EL PROCEDIMIENTO ES UNA SUPERFUNCION" ya que tiene muchas
mas capacidades que Las Funciones , que al tener la capacidad de
"INTERACTUAR" con el usuario (pidiendo mas datos o enviando mensajes)
puede devolvernos "MAS DE UN RESULTADO" en forma de "write"

La forma de declarar un procedimiento es antes de el Begin principal
y despues de Uses y es la siguiente

procedure nombre(variable:tipo de dato);
begin
(codigo)
end;

Esto significa
por pasos
a)Se inicia colocando la palabra procedure para que la maquina
reconozca que es un procedimiento
b)Luego de escribir procedure se escribe el nombre del procedimiento,
y nos referiremos a el siempre con el mismo nombre
c)Luego entre parentesis se piden los datos que necesita el procedimiento
para trabajar (esta parte se define igual como si fuese una funcion)
d)Se cierra el parentesis con punto y coma (no se debe colocar el tipo
de dato que sera el resultado por que el procedimiento no devuelve
ningun dato)

}
program vector;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure mostrarvector(x:array of integer;n:integer);
  var j:integer;
      r:char;
  { Nuestro procedimiento se llamara mostrar vector y como es un miniprograma
  tambien utilizara variables por lo que las definimos y empezamos el
  procedimiento
  }
  begin
  repeat
  writeln('su vector es este');
  write('X[');
  {Esto no podriamos hacer en funcion, por que no nos permite utilizar
  el WRITE, pero EL PROCEDURE es algo diferente y nos permite su uso
  }
  for  j:=1  to n do
  begin
  write(',',x[j])
  end;
  writeln(']');
  writeln('desea ver otra vez su vector? (n=no)');
  readln(r);
  {
  el Procedure incluso nos permite pedir informacion al usuario
  es decir nos permite utilizar el "READ", cosa que en la funcion no
  }
  until(r='n');
  end;



  var
  x:array[0..50] of integer;
  n,i:integer;

begin
  {primero me invento un vector}
  writeln('que dimension?');
  write('N=');
  readln(n);
  writeln('ingrese los valores');
  for  i:=1  to n do
  begin
  write('x[',i,']=');
  readln(x);
  end;
  {
  para llamar al procedimiento basta con nombrarlo y enviarle los datos
  que necesita, segun lo definimos
  }

  mostrarvector(x,n);

readln;

end.
{
En conclusion el procedimiento es un tipo de superfuncion que permite
interactuar con el usuario pidiendo mas datos o enviadole mensajes y esta mas
cerca de ser un programa independiente (pero en realidad no es mas que un
procedimiento al servicio del programa principal
}