Найти разность между максимальным и мимимальным значением массива

program hhh;
Uses crt;
 Var x:array [1..100] of integer;
     i,n,max,min,j,j1:integer;
     razn:real;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
Max:=x[1];
for i:=1 to n do
  if x[i]>=max then begin
                    max:=x[i];
                    j:=i;
                    end;
Writeln (' Maxim element = ',max);
Writeln;
Min:=x[1];
for i:=1 to n do
  if x[i]<=min then begin
                    min:=x[i];
                    j1:=i;
                    end;
Writeln (' Minim element = ',min);
writeln;
razn:=0;
for i:=x[j+1] to x[j1-1] do
razn:=razn-x[i];
writeln (' Raznostb = ',razn:4:2);
Readln
end.

uses crt;
const k=6;
var a:array[1..k] of integer;
    i,n1,n2:integer;
 begin
   ClrScr;
  Writeln('Введите массив');
   for i:=1 to k do
    begin
     Write('a[',i,']->');
     Readln(a[i]);
    end;
  Writeln('----------');
   Writeln('Введите n1 и n2');
   Readln(n1,n2);
    for i:=1 to k do
     if (a[i]>=n1) and (a[i]<=n2) then
      Write(a[i]);
 Readln;
end.

uses crt;
var a:array[1..50]of integer;
    n,i,j:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Massiv:');
for i:=1 to n do
  begin
    a[i]:=random(10)-4;
    write(a[i],' ');
  end;
writeln;
i:=1;
while i<=n do
   begin
    if a[i]<0then
       begin
         for j:=i to n-1 do
         a[j]:=a[j+1];
         n:=n-1;
       end
    else i:=i+1;
   end;
writeln('Rezultat:');
for i:=1 to n do
write(a[i],' ');
readln
end.