Написать процедуру, которая не возвращает значения

Program laba2_2;
uses crt;
var
  n,k,i: integer;
 
begin
  repeat
    writeln('Введите целое положительное число:');
    readln(n);
    k:= 0;
    i:= 0;
    while (n > 1) and (k = 0) do
    begin
      inc(i);
      k:= n mod 2;
      n:= n div 2
    end;
 
 
    if not ((n = 1)and(k = 0)) then
      writeln('Это число не является степенью двойки!');
  until (n = 1)and(k = 0);
  write('Показатель степени: ', i)
end.

Program laba2_2;
uses crt;
var n: integer;
procedure p;
var i,k:integer;
begin
k:=0;
i:=0;
while (n > 1) and (k = 0) do
 begin
  inc(i);
  k:=n mod 2;
  n:=n div 2
 end;
if (n = 1)and(k = 0) then
write('Показатель степени: ', i)
else write('Это число не является степенью двойки!');
end;
begin
writeln('Введите целое положительное число:');
readln(n);
p;
end.

Program laba2_2;
uses crt;
procedure p(n:integer);
var i,k:integer;
begin
k:=0;
i:=0;
while (n > 1) and (k = 0) do
 begin
  inc(i);
  k:=n mod 2;
  n:=n div 2
 end;
if (n = 1)and(k = 0) then
write('Показатель степени: ', i)
else write('Это число не является степенью двойки!');
end;
var n:integer;
begin
writeln('Введите целое положительное число:');
readln(n);
p(n);
end.

Program laba2_2;
uses crt;
var n:integer;
procedure p(var i:integer);
var k:integer;
begin
k:=0;
i:=0;
while (n > 1) and (k = 0) do
 begin
  inc(i);
  k:=n mod 2;
  n:=n div 2
 end;
if (n = 1)and(k = 0) then
write('Показатель степени: ', i)
else write('Это число не является степенью двойки!');
end;
var i:integer;
begin
writeln('Введите целое положительное число:');
readln(n);
p(i);
end.

Program laba2_2;
uses crt;
function f(n:integer):integer;
var i,k:integer;
begin
k:=0;
i:=0;
while (n > 1) and (k = 0) do
 begin
  inc(i);
  k:=n mod 2;
  n:=n div 2
 end;
if (n = 1)and(k = 0) then f:=i
else f:=-1;
end;
var n:integer;
begin
writeln('Введите целое положительное число:');
readln(n);
if f(n)=-1 then write('Это число не является степенью двойки!')
else write('Показатель степени: ', f(n))
end.