Даны две тройки вещественных чисел. В каждой тройке все числа различные. Найти среднее арифметическое средних чисел каждой тройки (средним назовем такое число в тройке, которое больше наименьшего из чисел данной тройки, но меньше наибольшего) — Pascal(Паскаль)

uses crt;
const a:Array [1..3] of Integer = (7,9,2);
const b:Array [1..3] of Integer = (12,53,56);
var i,j,sum,min,max,c,c1:Integer;
sr:real;
begin
sum:=0;
max:=1;
min:=1;
Writeln(' 1 Massiv:');
for i:=1 to 3 do begin
Write(a[i]:4);
end;
Writeln;
Writeln(' 2 Massiv:');
for j:=1 to 3 do begin
Write(b[j]:4);
end;
Writeln;
if a[i] > a[max] then max:=i;
if a[i] < a[min] then min:=i;
c:=a[max]-a[min];
Writeln;
Writeln('1 massiv:Maks - ',a[max],' Min - ',a[min]);
Writeln('Среденее число  - ',c);
Writeln;
if b[i] > a[max] then max:=i;
if b[i] < a[min] then min:=i;
c1:=b[max]-b[min];
Writeln;
Writeln('2 massiv:Maks - ' , b[max],' Min - ',b[min]);
Writeln('Среденее число  - ',c1);
Writeln;
sum:=sum+c+c1;
sr:=sum/2;
Writeln;
Writeln('среднеорифмитическое -   ',sr);
 
end.