Code:
	
	library module_main;
uses
  SysUtils,
  Classes;
  procedure outdata(name:pchar;id:longint);external 'db.dll' index 2;
procedure main();
begin
    writeln('data from file "name" ');
    outdata('name',3);
    writeln(End of the data');
end;
exports main index 1;
begin
end.
		Code:
	
	procedure main();
begin
    writeln('data from file "name" ');
    writeln(End of the data');
    outdata('name',3);
end; 
					
				