Mă puteți ajuta vă rog? (În pascal)

program numere;
var a, b, c, max, min: integer;
begin
max: = 0;
readln(a);
readln(b);
readln(c);
min: = a;
if (a > b) then max: = a
else max: = b;
if (max < c) then max: = c
else min: = c;
if (min > a) then min: = a;
if (min > b) then min: = b;
if (min > c) then min: = c;
writeln(max, ' ', min)
end.