не считает сколько людей останутся голодными ) может что то не дописал

[Temka3791]

const N=3;
var kol1,kol2,rez,i,j,max:integer;
a:array[1..N] of integer;
b:array[1..4] of integer;
begin
kol1:=0;
kol2:=0;
max:=0;
write ('Введите ...');
for i:=1 to N do
read(a[i]);
write ('Введите ...');
for j:=1 to 4 do
read(b[j]);
begin
for i:=1 to N do
for j:=1 to 4 do
if b[j]<= a[i] then
max:=b[j];

While a [i]>=b[j] do
rez:=a[i]-max;
kol1:=kol1+1;
end;
write(kol1);
end.
2018-03-19 (1).png