Pascal/Turbo Pascal - como puedo realizar esto en pascal

Uses CRT;

var

  Cont, divisor, dividendo:integer;

begin

  Writeln('Introduzca el dividendo: ');

  readln(dividendo);

  writeln('Introduzca el divisor: ');

  readln(divisor);

  while dividendo>=divisor do

    begin

      dividendo:=dividendo-divisor;

      cont:=cont+1;

    end;

  if dividendo=0 then

    writeln('Divisible. Resultado: ',cont)

  else

    writeln('Indivisible');

  readln;

end.

{Mira esto puede servirte}

program division_de_restas;

 uses

    crt;

  var

     nop, dividendo, divisor : integer;

   begin

      clrscr;

      writeln('   Division Por Restas');

      writeln;

      write('    Entre Dividendo : ');

      readln(dividendo);

      write('    Entre Divisor   : ');

      readln(divisor);

      nop := 1;

    repeat

       writeln('  ',dividendo,' - ',divisor,' = ',dividendo - divisor);

       dividendo := dividendo - divisor;

       if dividendo > 0 then

       nop := nop + 1;

    until dividendo <= 0;

    writeln;

    writeln('    Las Restas An Sido = ',nop);

    readkey;

   end.