Как вызывать пустую процедуру, котрая ничего не возвращает?

var
 
a, d_f, d_p, m_f, g_f : integer;
 
 
procedure Nachali(var an, bn, cn : integer);
var d_fN, m_fN, g_fN : integer;
begin
writeln('Vvedite den, mes, god nachala otscheta');
readln(d_fN, m_fN, g_fN);
end;
 
 
begin
Nachali(d_f, m_f, g_f);
writeln(d_f, m_f, g_f);
readln(a);
 
end.

function f(x,y:real;var s:real):real;
begin
s:=x+y
f:=x*y;
end;

var p,s:real;
........................
p:=f(x,y,s);
write('сумма=',s:0:2,'  произведение=',p:0:2);
...................

priocedure pr;
begin
writeln('**********');
end;
begin
pr
end;

function f(x,y:real;var s:real):real;
begin
s:=x+y
f:=x*y;
end;

readln(a,b,c);

function f(x,y:real;var s:real):real;
begin
s:=x+y
result:=x*y;
end;

procedure alfa(a,b :int; var c,d:int);
begin
......
end;
 
begin
alfa(f,g,h,j);
end.

Program procedura1;
uses crt;
var a, b: integer;
procedure poisk;
begin
if a>b then
writeln ('Первое число больше второго')
else
if a<b then
writeln ('Первое число меньше второго')
else
writeln ('Оба числа равны');
end;
begin
clrscr;
writeln('Введите a, b ');
readln(a, b);
poisk;
readln
end.