Помогите сделать по образцу: Даны два числа. Вывести сначала большее, а потом меньшее из них.

начало
ввести два числа (a) (b)
если a>=b печатать (a, b)

иначе печатать (b, a)

конец

вы просите ввести 3 числа, а после присваиваете последнему какое-либо значение - первого или второго. зачем? Вам же нужно отсортировать все три числа

Что-то у вас коротко получилось, у меня как-то больше, если без использования лишних переменных max и min:
if ( a > c ) then
begin
if ( a > b ) then
begin
writeln('max = ',a);
if ( b < c ) then
writeln('min= ',b)
else
writeln('min = ',c)
end
else
begin
writeln('max = ',b);
if ( a < c ) then
writeln('min= ',a)
else
writeln('min = ',c)
end
end
else
begin
if ( c > b ) then
begin
writeln('max = ',c);
if ( b < a ) then
writeln('min= ',b)
else
writeln('min = ',a)
end
else
begin
writeln('max = ',b);
if ( a < c ) then
writeln('min= ',a)
else
writeln('min = ',c)
end
end;
еще вариант, более компактный, но не быстрее предыдущего:
if ( a > b) and ( a > c) then
writeln(a)
else
begin
if ( b > a) then
writeln(b)
else
writeln(c);
end
if ( a < b) and ( a < c) then
writeln(a)
else
begin
if ( b < a) then
writeln(b)
else
writeln(c);
end

советую покопаться на ПаскальГуру. там бесплатно. Сам просто нередко там беру решения