Pascal programozás, segítség?

Lazarusban ( pascal nyelven ) szeretném a következőt megcsinálni:

Az algoritmus egy szám (a) legnagyobb osztóját keresi meg úgy, hogy egy megadott kezdőértéktől (b) indulva megvizsgálja, hogy a osztható-e b-vel. Ha nem, akkor b értékét eggyel csökkenti és újra próbálkozik. (Az oszthatóság vizsgálata úgy történik, hogy b értékét egy ciklusban levonjuk az a-ból és megnézzük, hogy a maradék nagyobb-e nullánál.)

vagy valami hasonló módon. A következőkig jutottam:

program feladat;

var a,b,c,d:integer;

begin

write('Add meg "a" - erteket: ');

read(a);

writeln('*******');

b:=a-1;

c:=(a mod b);

d:=(b-1);

if c = 0 then begin

writeln('', b);

readln;

end;

repeat

if c<>0 then begin

b:=d;

writeln('',b);

end

else

if c = 0 then begin

writeln('', b);

readln;

end;

until c=0;

readln;

readln;

end.