Pasar registros como parámetros en delphi

Como debo llamar al procedimiento leer_registro(var articulo : stock); ¿Desde el programa principal?

type
    stock = record
    numero : integer;
    nombre : string[20];
    precio : real;
end;

procedure leer_registro(var articulo : stock);
begin
  writeln('introducir numero serie ');
  readln(articulo.numero);
  writeln('introducir nombre ');
  readln(articulo.nombre);
  writeln('introducir precio');
  readln(articulo.precio);
end;