На паскале написать программку сокращения дроби , где N целое,

Пишем программку:
Pascal ABC.
proqram qq;
var
n,m:integer;
a,b:integer;
begin
read(n,m);
a := абс(n);
b := m;
while a lt;gt; b do
if a gt; b then
a := a - b
else
b := b - a;
b := m div a;
a := n div a;
writeln(a,/,b);
if a*m = b*n then writeln(Correct)
end.
Программка написана.