Составить метод и написать программку на паскале нахождение разности цифр 4-х

Чтоб выделить каждую цифру разряда четырехзначного числа, мы, во-первых, вводим четыре переменных для того, чтобы в их были записаны разряды числа.
Так как из разряда тысяч мы будем вычитать разряд сотен, разряд 10-ов и разряд единиц, то порядок записи главен.
Во-вторых, нам необходимо перевести число в строчку с поддержкою функции str().
Дальше, по одному символу записываем разряды в переменные, снова переводим их в тип integer и вычитаем.
Записываем итог.
var a,b,c,d,num,i:integer;
q,w,e,r,strn:string;
begin
num:=9123;
Str(num,strn);
q:=strn[1];
w:=strn[2];
e:=strn[3];
r:=strn[4];
val(q,a,i);
val(w,b,i);
val(e,c,i);
val(r,d,i);
writeln(a-b-c-d);
end.