Решение систем линейных уравнений методами Жордана и простых итераций

Листинг программы к заданию 2.
uses crt;
var
i, j, n, t, k, flag, kol: integer;
A: array[1..50,1..50] of real;
X, X1: array[1..50] of real;
E: real;
begin
...

Задание: Вариант 48.

1) Решить СУ с помощью заданного метода вручную.
2) Решить систему уравнений на машине с помощью метода простой итерации.

Метод: ОЖИ-2.
...
Вила решаемой системы уравнения можно посмотреть в скриншоте - *.png.

p.s. В работе также содежится исходный код, блок схема и результаты выполнения, теоретические сведения. Язык реализации - Pascal.