Определить максимальную температуру на неделе , если температура за неделю вводится с клавиатуры !

var i,max,k:integer;

begin

max:=-100;

for i:=1 to 7 do begin readln(k); if k>max then max:=k; end;

writeln(max);

end.