Одномерный массив. Определить разность между max и min элементами массива и их индексами

program z4;
var
A:array[0..50] of integer;
i:byte;
f:text;
 
procedure index;
var k:integer;
begin
k:=10;
i:=1;
writeln;
while k > 0 do
begin
if A[i] > 0 then begin
write(f,A[i],' ');
write(A[i],' ');
dec(k);
inc(i);
end;
 
end;
writeln(f,i-1);
writeln;
write('index=',i-1);
end;
BEGIN
Assign(f,'file.txt');
Rewrite(f);
randomize;
for i:=1 to 50 do
begin
max := 1;
min := 1;
for i := 1 to count do
begin
if mas[max] < mas[i] then max := i;
if mas[min] > mass[i] then min := i;
end;
Writeln (abs(mas[max] - max[min]));
Writeln (abs(max-min));
end;
writeln(f,'');
index;
close(f);
END.

uses crt;
const n=50;
type mas=array [1..n] of integer;
var f: text;
    a: mas;
    mn,mx: integer;
    imn,imx: byte;
 
procedure GenM (var z: mas);
var i: byte;
begin
for i:=1 to n do
    z[i]:=random(101);
end;
 
procedure PrintM (z: mas; var ff: text);
var i: byte;
begin
rewrite(ff);
for i:=1 to n do
    begin
    write(z[i]:4);
    write(ff,z[i]:4);
    end;
writeln(' ');
writeln(ff,' ');
close(ff);
end;
 
procedure MinMax (z: mas; var min,max: integer; var imin,imax: byte);
var i: byte;
begin
imin:=1; imax:=1;
for i:=2 to n do
    begin
    if z[i]<z[imin] then imin:=i;
    if z[i]>z[imax] then imax:=i;
    end;
min:=z[imin]; max:=z[imax];
end;
 
procedure PrintRez (min,max: integer; imin,imax: byte; var ff: text);
begin
append(ff);
writeln('Мин.  элемент=',min:4,', под индексом ',imin);
writeln(ff,'Мин.  элемент=',min:4,', под индексом ',imin);
writeln('Макс. элемент=',max:4,', под индексом ',imax);
writeln(ff,'Макс. элемент=',max:4,', под индексом ',imax);
writeln('Разница между значениями=',max-min,', между индексами=',imax-imin);
writeln(ff,'Разница между значениями=',max-min,', между индексами=',imax-imin);
close(ff);
end;
 
begin
assign(f,'D:\rez.txt');
GenM (a);
PrintM (a,f);
MinMax (a,mn,mx,imn,imx);
PrintRez (mn,mx,imn,imx,f);
readln;
end.