Даны пять различных целых чисел. Найти среди них два числа,модуль разности которых имеет:a)наибольшее значение;b) наименьшее значение- Pascal(Паскаль)

Program Mas;
Uses crt;
Var
  a:array [1..5] of integer;
  min,max,r,x1,x2,y1,y2:integer;
  i,j:byte;
Begin
  clrscr;
  Writeln('Введите 5 целых чисел. После каждого Enter');
  For i:=1 to 5 do
  Readln (a[i]);
  min:=abs(a[1]-a[2]);
  max:=min;
  For i:=1 to 4 do
   Begin
    For j:=i+1 to 5 do
    Begin
      r:=abs(a[i]-a[j]);
      if r>max then
       Begin
        max:=r;
        x1:=a[i];
        x2:=a[j];
       End;
     if r<min then
      Begin
        min:=r;
        y1:=a[i];
        y2:=a[j];
      End
    End;
  End;
  Writeln('Максимум:',max,'  числа ',x1,' и ',x2);
  Writeln('Минимум:',min,'  числа ',y1,' и ',y2);
  Readln;
End.