Pascal/Turbo Pascal - Ayuda por favor en pascal (funciones)

{A ver si es algo de esto}

program suma;

 uses

    crt;

  var

    t : integer;

    d1, d2 : integer;

  function lasuma(p, q : longint) : longint;

  var

    tomo : longint;

  begin

     lasuma := 0;

     tomo := p;

     if p < q then

     begin

        for t := 1 to q do

        tomo := tomo + t;

        lasuma := tomo;

     end

   else

      writeln('*** Numero 1º Mayor Numero 2º ´);

  end;

 begin

     clrscr;

     write('   Entre 1º Numero Entero : ');

     readln(d1);

     write('   Entre 2º Numero Entero : ');

     readln(d2);

     writeln('   Lasuma Es : ',lasuma(d1,d2));

     readkey;

 end.