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

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.