не могу найти проблему

[Temka3791]

В ПК поступают сведения о количество кв. метров жилой площади и количестве человек в семье, каждого из N работников предприятия. Требуется определить у скольких работников предприятия жилищные условия ниже нормы (норма – 12 кв. метров на одного человека).






Var i,n,s:integer;
m :real;
Begin
m:=0;
for i:=1 to n do
begin
writeln ('Введите кол-во человек в семье');
readln (s);
s:=s+n;
end;
s:=s/n;
writeln('введите кол-во кв метров');
if m>=12 then writeln('Жилищные условия в норме')
else if m<12 then writeln('Жилищные условия ниже нормы');
End.

[digitalis]

Название темы прикольное. Обычно проблемы сами меня находят, а мне приходится искать их решение
Т.е. мы суммируем количество работников (с их домочадцами, собачками и тещами) и делим на всех площадь ведомственного дома. Получаем среднюю температуру по больнице "Все хорошо, прекрасная маркиза"...

Var i,k,n:integer;
people: array[1..1000] of integer ;
place: array[1..1000] of real ;
Begin
  n:=0;
  for i:=1 to 1000 do
  begin
     writeln ('Введите кол-во человек в семье');
     readln (k);
     if k<0 then break ;
     people[i] := k ;
     inc (n)
  end ;
  // Вводом отрицательного числа условно обозначаем конец списка ;
  k := 0 ;
  for i:=1 to n do
  begin
     writeln ('Введите кол-во кв метров');
     readln (place[i]);
     if place[i]/people[i] < 12 then inc (k)
  end ;
writeln('Их, горемычных = ',k);
End.

Можно и без массива.

  k := 0 ; 
  for i:=1 to n do
  begin
    Readln (people1,place1) ;
   if place1/people1 < 12 then inc (k)
  end ;

И тишина...