Написать подпрограмму, вычисляющую проценты от числа — Pascal(Паскаль)

{vivesti procent chisla ot dannogo chisla}
var
 n,m:integer;


 function procent(n,m:integer):byte;
 begin
  procent:=round( (abs(n)/abs(m))*100 );
 end;

begin
 writeln('Vvedi chislo');
 readln(n);
 writeln('Vvedi chislo ot kotorogo vichislaetsa procent');
 readln(m);
 writeln(n,' eto ',procent(n,m),' percent ot chisla ',m);
 readln;
end.