Ввести с клавиатуры два числа А и В. Поменять их значения так, чтобы большее число оказалось в А, меньшее в В — Pascal(Паскаль)

program p1;

label 1;

var
  A, B, vr: integer;
  prod: char;

begin
1:
  write('A= ');
  readln(A);
  write('B= ');
  readln(B);

  if A < B then
  begin
    vr := A;
    A := B;
    B := vr;
  end;
  writeln('_____');
  writeln('A= ', A);
  writeln('B= ', B);

  write('Vi xotite prodoljiti? (y/n) ');
  readln(prod);
  if prod = 'y' then
    goto 1;
  readln;

end.