Pascal/Turbo Pascal - Como hago esto en turbo pascal

{Mira esto}

program sumas;

 uses

    crt;

 var

    t, resul, mpl, mtp : integer;

  begin

     clrscr;

     write('  Entre multiplicando : ');

     readln(mpl);

     write('  Entre multiplicador : ');

     readln(mtp);

     resul := 0;

     write('  ');

     for t := 1 to mtp do

     begin

     write(mpl);

     resul := resul + mpl;

     if t < mtp then

     write(' + ')

   else

     write(' = ');

   end;

     write(resul);

     readkey;

  end.

uses crt;

var

	x,y,s,i:word;

begin

	clrscr;

	write('Ingrese multiplicando: ');

	readln(x);

	write('Ingrese multiplicador: ');

	readln(y);

	s:=0;

	for i:=1 to y do

		s:=x+s;

	writeln(s);

end.