Даны три числа a,b и с. Если все они ненулевые вывести их на экран в порядке возростания

[1znar]

Даны три числа a,b и с. Если все они ненулевые, вывести их на экран в порядке возрастания; иначе выдать соответствующее сообщение, какое из чисел не удовлетворяет условию.

[Roof]

uses crt;

function NoNull(var a, b, c : real ) : boolean;
begin
  if (a <> 0) and ( b <> 0 ) and ( c <> 0 ) then
    NoNull := true
  else
    NoNull := false;
end;


procedure Swap( var a, b : real);
var c : real;
begin
  if a > b then
  begin
    c := a;
    a := b;
    b := c;
 end;
end;

var a, b, c : real;
begin
  clrscr;
  writeln('Vvedite 3 chisla');
  readln(a, b, c);
  if ( NoNull( a, b, c ) ) then
  begin
    Swap( a, b );
    Swap( a, c );
    Swap( b, c );
    WriteLn( a : 0 : 1, ' ' ,b : 0 : 1, ' ' , c : 0 : 1 );
  end
  else
    WriteLn( 'Odno iz 4isel ravno 0 ' );
ReadLn;
end.