Задача на Паскале

[Witaliy]

Всем привет.
У меня есть такая задачка, никак не могу решыть:
Есть два числа: N и M. Нужно добится того, что-бы N:M как A до B. (N:M=A:B). Если число N больше чем нужно для ткой пропорции, тогда N := N-1, если M то M:=M-1, и так делать пока не станит отношение чисел N до M как A до B. Если добиться такого не возможно, то вивести 0.
Буду благодарен за любую помощь.
Спасибо.

[capta1n]

program pro;
const
 n = 4;
 m = 2;
var
 a,b,n1,m1 : integer;
begin
  writeln ('n= ',n,'  m= ',m);
  if m=0 then writeln ('M=0 - it''s error --> division by zero!')
  else
  begin
    n1:=n;
    m1:=m;
    write ('a= '); readln (a);
    write ('b= '); readln (b);
    if b=0 then writeln ('B=0 - it''s error --> division by zero!')
    else
    begin
      if n1/m1=a/b then
      begin
        writeln ('n= ',n1,'  m= ',m1,'  a= ',a,'  b= ',b);
        writeln (n1,'/',m1,'=',a,'/',b)
      end
      else
      begin
        while (n1>=a) and (n1/m1>a/b) do dec(n1);
        while (m1>=b) and (n1/m1<a/b) do dec(m1);
        if n1/m1<>a/b then writeln (0)
        else
        begin
          writeln ('n= ',n1,'  m= ',m1,'  a= ',a,'  b= ',b);
          writeln (n1,'/',m1,'=',a,'/',b)
        end
      end
    end
  end;
  readln
end.

[Witaliy]

Нет, что-то верно не работает