Эта дословная задача? Что то не получаятся сделать... можешь в комменты прям дословно написать или сфоткать
Max:=1; min:=1;
for k:=2 to n do begin
if a[k]>a[max] then max:=k;
if a[k] < a[min] then min:=k
end;
writeln ('max=', a[max]);
writeln ('min=', a[min]);
if max < min then writeln ('max раньше')
else writeln ('min раньше')
Var f,n:integer;
begin
write('Сколько дней: ');
readln(f);
n:=f div 7;
writeln('Полных недель: ',n);
<span>end.</span>