1.
function Procent(N: Integer, Proc: Integer): Real;
begin
Procent:= N/100*Proc;
end;
Если нужно возвращять один процент, то Proc не нужен
2.
procedure StringRepeat(Rep: String; Count: Word);
var i: word;
begin
for i:= 1 to Count do
Write(Rep);
end;