A Pascal Program for the Solution of Sparse Linear Systems