Как можно их соединить? Чтобы при выборе под номером 4, было решение методом Крамера

[aadd]

Как соединить их в едино?

Первая программа

uses
crt;
var
k: integer;
a, b, c, x, D, x1, x2, x3,x4, z, t, t1, t2: real;
begin
Writeln('Введите цыфру какое именно решения вы хотите = ');
Writeln('Линейное уравнения - "1"');
Writeln('Квадратное уравнение - "2"');
Writeln('Биквадратное уравнение - "3"');
Readln(z);
if z=1 then
begin
Write('Введите значение А = ');
readln(a);
Write('Введите значение В = ');
readln(b);
if (a=0) then writeln ('Нет решений') else
if (b=0) then writeln ('X - любое число') else
writeln ('X < ',-b/a:0:2);
end;
if z=2 then
begin
Write('Введите значение А = ');
readln(a);
Write('Введите значение В = ');
readln(b);
Write('Введите значение C = ');
readln(c);
D := b * b - 4 * a * c;
if (D < 0) then Writeln('корней нет') else
if (D > 0) then
begin
x1 := (-b + sqrt(d)) / (2 * a);
x2 := (-b - sqrt(d)) / (2 * a);
Writeln('x1=', x1:0:3, ' x2=', x2:0:3);
end
else
if (D = 0) then
Writeln('x1=x2 =', -b / 2 * a);
end;
if z=3 then
Begin
write('Введите значение a ='); readln(a);
write('Введите значение b ='); readln(b);
write('Введите значение c ='); readln(c);
d:=b*b-4*a*c;
if d<0 then write('Корней нет') else
if d=0 then begin t:=-b/2*a; writeln('x1= ',sqrt(t):3:3,'; x2= ', -sqrt(t):3:3); end else
if d>0 then begin t1:=(-b+sqrt(d))/2*a; t2:=(-b-sqrt(d))/2*a;
 
if (t1<0) and (t2<0) then writeln('Корни у дискриминанта получиись отрицательными, следовательно решения нет')
else begin
if (t1>=0) and (t2>=0) then writeln('x1= ',sqrt(t1):3:3,'; x2= ',sqrt(t2):3:3,'; x3= ',-sqrt(t1):3:3,'; x4= ',-sqrt(t2):3:3)
else
if (t2<0) then writeln('x1= ',sqrt(t1):3:3,'; x2= ', -sqrt(t1):3:3) else
if (t1<0) then writeln('x1= ',sqrt(t2):3:3,'; x2= ', -sqrt(t2):3:3);
 
end;
end;
end;
end.

Вторая программа

uses crt;
const n=3;
var
a:array [1..n,1..n] of real;
b:array [1..n] of real;
i,j:integer;
d,d1,d2,d3:real;
x1,x2,x3:real;
begin
clrscr;
writeln('Введите коэфициенты и свободные члены ',n,' уравнений');
for i:=1 to n do
begin
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
write('св. член=');
readln(b[i]);
end;
writeln('Расширенная матрица коэффициентов');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:8:4);
writeln(b[i]:12:4);
end;
writeln;
d:=a[1,1]*a[2,2]*a[3,3]-a[1,1]*a[2,3]*a[3,2]
  -a[1,2]*a[2,1]*a[3,3]+a[1,2]*a[2,3]*a[3,1]
  +a[1,3]*a[2,1]*a[3,2]-a[1,3]*a[2,2]*a[3,1];
if d=0 then
begin
writeln('Система не определена');
readln;
exit;
end;
d1:=b[1]*a[2,2]*a[3,3]-b[1]*a[2,3]*a[3,2]
-a[1,2]*b[2]*a[3,3]+a[1,2]*a[2,3]*b[3]
+a[1,3]*b[2]*a[3,2]-a[1,3]*a[2,2]*b[3];
d2:=a[1,1]*b[2]*a[3,3]-a[1,1]*a[2,3]*b[3]
-b[1]*a[2,1]*a[3,3]+b[1]*a[2,3]*a[3,1]
+a[1,3]*a[2,1]*b[3]-a[1,3]*b[2]*a[3,1];
d2:=a[1,1]*a[2,2]*b[3]-a[1,1]*b[2]*a[3,2]
-a[1,2]*a[2,1]*b[3]+a[1,2]*b[2]*a[3,1]
+b[1]*a[2,1]*a[3,2]-b[1]*a[2,2]*a[3,1];
x1:=d1/d;
x2:=d2/d;
x3:=d3/d;
writeln('x1=',x1:10:4);
writeln('x2=',x2:10:4);
writeln('x3=',x3:10:4);
readln
end.

[Алексей_2012]

Думаете кто-то глянет Ваш неотформатированный и без отступов код, разберется с ним и напишет Вам программу?

1. Для чего Вам объединять проги?
2. Наработки есть?
3. Формулировку задания то же хотелось бы прочитать))