Giúp em với,dùng ngôn ngũ lập trình pascal hãy viết chương trình nhập vào từ bàn phím ba số a,b,c.In ra màn hình số lớn nhất,số nhỏ nhất và số còn lại

uses crt;
var a,b,c,max,min:longint;
begin
clrscr;
    read(a,b,c);
    max:=a;
    if b>max then max:=b;
    if c>max then max:=c;
    write(max,' ');
    min:=a;
    if b<min then min:=b;
    if c<min then min:=c;
    write(min,' ');
    if (a<max) and (a>min) then write(a)
    else if (b<max) and (b>min) then write(b)
    else write(c);
readln;
readln;
end.