Pascal/Turbo Pascal - while do

Hola necesito q me ayuden con un progrma que pregunte una letra, el numero de veces que se quiera escribir dicha letra en la pantalla.... no se como utilizar un contador...pls es para mañana 14 de oct

ReadLn(Letra);
ReadLn(Veces);
for i:=1 to Veces do WriteLn(Letra);