Как на экран вывести эту пару?
program mass6(input,output);
uses crt;
var a: array[1..4] of real;
n,i,j,k:integer;
max:real;
el1,el2:integer;
begin
n:=4;
randomize;
for i:=1 to n do begin
a[i]:=random(10);
end;
clrscr;
writeln;
writeln('Исходный массив: ');
for i:=1 to n do
write(a[i]:5:0);
writeln;
max:=A[1]-A[2];
for j:=1 to n do begin
for k:=1 to n do begin
if max < A[j]-A[k] then max:=A[j]-A[k];
writeln('********************');
writeln(a[j]:5:0,a[k]:5:0);
end;
end;
write('naibolshaya raznost =');
writeln(max:2:0);
write('para elementov : ');
{???}
readln;
end.