[thắc mắc/ hỏi] tìm giá trị lớn nhất trong mảng bằng phương pháp đệ quy trong pascal

[timvakiem]

ai biết giúp mình với :
vd : a,b,c,d
so sánh a và b
so sánh b và c
=> tìm giá trị lớn nhất trong 2 mảng nhỏ rồi so sánh đưa ra giá trị lớn nhất
thank mấy bạn nhiều

[ti ga]

type mang=array[1..2] of longint;
var a,b,c,d,max1,max2:longint;
f,g:mang;

begin
write('nhap so a: ');readln(a);
write('nhap so b: ');readln(b);
write('nhap so c: ');readln(c);
write('nhap so d: ');readln(d);
f[1]:=a;
f[2]:=b;
g[1]:=c;
g[2]:=d;
if a>b then
write('a>b')
else
if a<b then
write('a<b');
if b>c then
write('b>c')
else
if b<c then
write('b<c');
if f[1]>f[2] then
max1:=f[1]
else
if f[1]<f[2] then
max1:=f[2];
if g[1]>g[2] then
max2:=g[1]
else
if g[1]<g[2] then
max2:=g[2];
if max1>max2 then
write('so lon nhat la: ',max1)
else
if max1<max2 then
write('so lon nhat la: ',max2);
readln;
end.