Даны натуральные числа M и N. Вывести старшую цифру дробной части и младшую цифру целой части числа M/N — Pascal(Паскаль)

Program chisla;
Uses crt;
Var a,b,c,d: word;
Begin
Clrscr;
Randomize;
Write('Даны числа a и b: ');
a:=random(50)+50;
b:=random(50)+1;
Writeln(a,'    ',b);
c:=trunc(a/b*10) mod 10;
d:=trunc(a/b) mod 10;
Write('Старшая цифра дробной части = ',c,'    Младшая цифра целой части = ',d);
End.