Модифицировать программу так, чтобы она находила решение системы алгебраических уравнений 4 порядка

[АсяЯ]

Модифицировать программу так, чтобы она находила решение системы алгебраических уравнений 4 порядка с любыми вещественными коэффициентами

program zadazna_5; 
const 
a:array[1..3,1..3] of integer=((2,1,1),(1,2,1),(1,1,2)); 
b:array[1..3] of integer=(7,8,9); 
var 
i,j:integer; 
delta,delta1,delta2,delta3,x1,x2,x3:real; 
begin 
delta:=a[1,1]*a[2,2]*a[3,3]+a[1,2]*a[2,3]*a[3,1]+a[1,3]*a[2,1]*a[3,2]-a[3,1]*a[2,2]*a[1,3]-a[3,2]*a[2,3]*a[1,1]-a[3,3]*a[2,1]*a[1,2]; 
delta1:=b[1]*a[2,2]*a[3,3]+a[1,2]*a[2,3]*b[3]+a[1,3]*b[2]*a[3,2]-b[3]*a[2,2]*a[1,3]-a[3,2]*a[2,3]*b[1]-a[3,3]*b[2]*a[1,2]; 
delta2:=a[1,1]*b[2]*a[3,3]+b[1]*a[2,3]*a[3,1]+a[1,3]*a[2,1]*b[3]-a[3,1]*b[2]*a[1,3]-b[3]*a[2,3]*a[1,1]-a[3,3]*a[2,1]*b[1]; 
delta3:=a[1,1]*a[2,2]*b[3]+a[1,2]*b[2]*a[3,1]+b[1]*a[2,1]*a[3,2]-a[3,1]*a[2,2]*b[1]-a[3,2]*b[2]*a[1,1]-b[3]*a[2,1]*a[1,2]; 
x1:=delta1/delta; 
x2:=delta2/delta; 
x3:=delta3/delta; 
writeln('Найденное решение:'); 
writeln('x1=',x1,'x2=',x2,'x3=',x3); 
end.

Пожалуйста, оформляйте Ваш код согласно правилам.