Pascal/Turbo Pascal - SISTEMAS COMPATIBLES DETERMINADOS

Se pide implementar un programa que resuelva sistemas de ecuaciones lineales compatibles y determinados.
El enunciado se adjunta en las imágenes. Muchas gracias!!

Perfecto y que con eso cual son tus dudas o en que te podemos ayudar

Lo que no consigo hacer es que el procedure haga ceros encima y debajo de los pivotes.