Найти большее из четырёх чисел в Паскале (составить программу)

Program Sample;

const n = 4;

var i, maxValue, inpValue: integer;

begin

maxValue : = low (maxValue) ;

for i : = 1 to n do

begin Write ('Введите число: ') ;

ReadLn (inpValue) ;

if maxValue < inpValue then

maxValue : = inpValue;

end;

WriteLn ('Максимальное из ', n, ' чисел равно ', maxValue) ;

end.