Замените условие на следующее:
if ((a mod 4=0)or ((a mod 100<>0) and (a mod 400=0))) then ...
103=1100111
97=1100001
1100111+1100001=11001000
2 бит, 12 бит, 1 байт, 0,5 кбайт,1000 байт, 1 кбайт, 0,5 мбайт, 514 кбайт, 1 гбайт, 1026 мбайт, 1 тбайт, 1030 гб
Var m:array[1..10] of integer; i,max,cnt:integer;
begin
max := -1000;
write('Massive: ');
for i := 1 to 10 do begin
m[i] := random (11)-5;
write(m[i],' ');
if m[i] > max then begin inc(cnt); max := m[i]; end;
end;
writeln;
writeln('Максимальное число: ',max);
writeln('Всего максимальных чисел: ', cnt);
end.