Определить минимальное и максимальное значение

program s;
 
label goback;
 
var
  a1, a2, x1, x2, x3: integer;
 
begin
  goback:
  read(a1);
  read(a2);
  if (a1 > a2) then writeln('a max = ', a1, ' index = 1')
  else if (a2 > a1) then writeln('a max = ', a2, 'index = 2');
  x1 := ((a1 * a1) - a2); 
  x2 := ((a2 * a2) - a1);
  x3 := (a1 * (x1 + x2));
  if (x1 < x2) and (x1 < x3) then
    writeln('x min = ', x1, ' index = 1')
  else if (x2 < x1) and (x2 < x3) then
    writeln('x min = ', x2, ' index = 2')
  else if (x3 < x1) and (x3 < x2) then
    writeln('x min = ', x3, ' index = 3');
  
  
  goto goback;
end.

Program lab_2;
var a1, a2, x1,x2,x3: real; amax, xmin: real;
begin
 writeln ('введите значение а1');
 readln (a1);
 writeln ('введите значение а2');
 readln (a2);
 x1:=sqr(a1)-a2;
 x2:=sqr(a2)-a1;
 x3:=a1*(x1+x2);
 if a1>a2 then amax:=a1 else amax:=a2;
 if x1<x2 then xmin:=x1 else xmin:=x2;
 if x3<xmin then xmin:=x3;
 if a1>a2 then writeln('максимальное значение a - a1=', amax)
 else writeln('максимльное зачние а - а2=', amax);
 if x1<x2 then writeln('мнимальное значение х - х1=', xmin)
 else writeln('минимальное знчение х - х2=', xmin);
 if x3<xmin then writeln('минимальное значение х - х3=',xmin);
 read;
 end.