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

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.