Program j56;var a, b:integer;beginwrite(039;Введите 2 числа:039;);readln(a, b);if (aamp;gt;b)

Program j56;
var a, b:integer;
begin
write('Введите 2 числа:');
readln(a, b);
if (agt;b) then
if (a mod b=0) then
writeln('Ваше 1-ое число кратно второму.');
writeln('Приватное - ', a div b, '.')
10. else
writeln('Ваше 1-ое число не кратно второму.');
writeln('Приватное - ', a div b, '.');
writeln('Остаток - ', a mod b, '.')
else
if (b mod a=0) then
writeln('Ваше первое число кратно второму.');
writeln('Приватное - ', b div a, '.')
else
writeln('Ваше первое число не кратно второму.');
writeln('Частное - ', b div a, '.');
writeln('Остаток - ', b mod a, '.');
end.

Мне пишут Встречено 'else', а ожидалось ';'
Ставлю ; , но Встречено 'else', а ожидался оператор строчка 10.