Решите пожалуйста и обьясните как это решается

1 Программа обрабатывает одномерный целочисленный массив. Заполните трассировочную
таблицу и определите, какое число будут выведено в результате работы программы
var k, m, day: integer;
Pos: array[1..7] of integer;
begin
Pos[1] := 17; Pos[2] := 19;
Pos[3] := 20; Pos[4] := 18;
Pos[5] := 16; Pos[6] := 20;
Pos[7] := 16;
day := 1; m := Pos[1];
for k := 2 to 7 do
if Pos[k] > m then
begin
m := Pos[k];