Правильно или нет? Turbo Pascal

Program msc;
Var a,b,x,m,min,max:integer;
BEGIN
Writeln('Введите a,b,x');
READLN (a,b,x);
IF A>B then max:=a else max:=b;
IF A0 then
BEGIN
IF A>B then m:=a else m:=b;
if A>B then m:=b else m:=a;
m:=a and b
END;
IF xB then m:=a else m:=b;
if A>B then m:=b else m:=a;
m:=a and b
END;
IF xB then m:=a else m:=b;
if A>B then m:=b else m:=a;
m:=a and b
END;

IF x