Pascal Ввести четыре числа. Вывести максимальное

program max; const   N = 4; var   nums: array [1..N] of integer;   strs: array [1..N] of string[20] = ('первое', 'второе', 'третье', 'четвёртое');   i, max: integer; begin   for i := 1 to N do     begin       write(strs[i], ' число: ')       readln(nums[i]);     end;   max := 0;   for i := 1 to N do     if nums[i] > max then       max := nums[i];   writeln('максимальное: ', max); end.