Найти разность двух чисел - Pascal

procedure razn(a,b:integer;var c:integer);
begin
c:=a-b;
end;
var a,b,c:integer;
begin
writeln('Введите 2 целых числа');
readln(a,b);
razn(a,b,c);
write('Разность=',c)
end.