Домашние задание из Программирования

Домашние задание из Программирования
Функция http://gyazo.com/a5b8def4cd9a4a0f21fbd21caadf63b2 ну то то правильно. А вот числа вывести не смог правильно. Проверил раз 100.
а вот вторая задача: Сортировать четыре произвольных числа в порядке убывания.
var x,y:real; a,b,c,d,v,min,max,ser1,ser2:integer;
begin
writeln('MEH1O':10);
writeln('1 - zadacha 1');
writeln('2 - zadacha 2');
writeln;
write('vvedit nomer zada4i:');
readln(v);
case v of
1:begin
write('vvedit x:');
readln(x);
if (x>3.5) then y:=sin(x)*ln(x) else y:=sqr(cos(x));
writeln('y:=',y:6:2);
end;
2:begin
write('vvedit 4 4usla:');
readln(a,b,c,d);
max:=a;
min:=a;
if (b>max) then max:=b else
if (c>max) then max:=c else
if (d>max) then max:=d;
writeln;
if (bser2) then writeln(max:5, ser1:5, ser2:5, min:5) else
writeln(max:5, ser2:5, ser1:5, min:5);
end;
end;
readln
end.

  • procedure swap(var a,b:integer);
    var c:integer; begin c:=a; a:=b; b:=c end;
    var a,b,c,d:integer;
    begin
    write('a b c d ? '); readln(a,b,c,d);
    if a< b then swap(a,b); if a< c then swap(a,c); if a< d then swap(a,d); if b< c then swap(b,c); if b< d then swap(b,d); if c< d then swap(c,d); writeln(a:6,b:6,c:6,d:6); writeln end. Надо писать, в какой из реализаций паскаля нужно решение. - Например, в PascalABC.NET было бы проще.