PascalABC.NET.Помогите пожалуйста.Даны 2 числа a и b.Найти меньшее и определить делится ли оно нацело на 5.

Var
a,b:integer;

begin
write(Введите число А );
readln (a);
write(Введите число Б );
readln (b);
if (a = b) then
writeln (Числа равны)
else
if (a lt; b) then
begin
if ( a mod 5 = 0) then
writeln (Число А меньше и делится на 5)
else
writeln(Число А меньше и не делится на 5);
end
else
begin
if ( b mod 5 = 0) then
writeln (Число Б меньше и делится на 5)
else
writeln (Число Б меньше и не делится на 5);
end;
end.