Pascal/Turbo Pascal - PROGRAMA 21

SOY ESTUDIANTE DE PROGRAMACION Y COMO PROYECTO FINAL DE PASCAL DEL PRIMER CURSO TENGO QUE HACER UN PROGRAMA DE UN JUEGO DE CARTAS QUE SE LLAMA 21, EN DONDE JUEGAN DOS PERSONAS,AL JUGADOR1 SE LE DAN 2 CARTAS INICIALES CON OPCION A UNA TERCERA QUE DE EL RESULTADO Y PASE EL JUEGO AL OTRO JUGADOR2 SE LE DEN DOS CARTAS CON OPCION A UNA TERCERA, SUME SUS PUNTOS, LOS COMPARE CON EL JUGADOR 1 Y VALIDE QUIEN TIENE MAS PUNTOS SIN PASARSE DE 21. LAS CARTAS J, Q K VALEN LAS TRES 10 PUNTOS, EL AS VALE 1 PUNTO. EL GANADOR ES EL QUE TENGA MAS PUNTOS SIN PSASARSE DE 21. PREGUTNTE SI QUIERE OTRA CARTA Y SI QUIERE SEGUIR JUGANDO. TODO ESTO HAY QUE HACERLO SIN USAR MATRICES, NI ARREGLOS NI PARAMETROS SOLO SE DEBE USAR ESTRUCTURAS WHILE, REPEAT, FOTR E IF POR LA AYUDA MUCHAS GRACIAS.

El programa en sí parece relativamente sencillo pero con las restricciones que pones engorrosamente largo y dificil de compreder, además me parece que las restricciones mas que formar un abito de buena programación la destruye de raiz quitandote las herramientas por las cuales Pascal se caracteriza, esto es la programación estructurada.
Lamento mucho la decision de tu profesor.