Задача на Паскаль

[WitaliG]

Здравствуйте!
Помогите разобраться в задаче: даны 3 числа. Вывести сначала наименьшее, а потом наибольшее число.
var
a,b,c,maxnumber,minnumber :integer;
begin
readln(a,b,c);
if a<b then
minnumber :=a
else
minnumber :=b;
if minnumber >c then;
minnumber :=c;
writeln('Minnumber = ',minnumber);

begin
if a>b then
maxnumber :=a
else
maxnumber :=b;
if maxnumber <c then
maxnumber :=c;
writeln('Maxnumber = ',maxnumber);
end
end.
Вопрос: почему обе части задачи поотдельности работают правильно, а когда вместе наименьшее число выводится неправильно.
С уважением Виталий.

[BeJIuKuu_Hexo4yxa]

1.

if minnumber >c then;

возможно, точка с запятой после then мешает
2. нет необходимости обрамлять вторую часть в begin/end
3. На форуме есть кнопочка #, с ее помощью выделяются куски кода в сообщении

[WitaliG]

Спасибо, так и есть; убрал точку с запятой заработало.