Найти большое на языке паскаль с полным и неполным и ветвлением

Var x, y, maximum: integer;

if x > y then
 maximum:=x;
else
 maximum:=y;

С неполным:

var x, y, maximum: integer;

maximum:=y;

if x > y then
 maximum:=x;