Ввести 2 числа. Отнять из большего наименьшее. (на языке паскаля)

program zz1;

var a, b:integer; //задаем переменные целого типа

begin

write( введите 1-ое данное число );  //вводим с клавиатуры 1-ое число

read(a);  

write( введите второе данное число );  //вводим с клавиатуры 2-ое число

read(b);

if a gt; b then a:=a - b else b:=b - a; // проверяем, если 1-ое число больше второго, то от первого отнимаем 2-ое число, в противном случае, если второе больше первого, то от второго числа отнимаем 1-ое

write( приобретенные числа: a= , a, b=, b); // выводим ответ

end.