Лабораторные по массивам

[Сумерки]

Помогите пожалуйста решить в Паскале...
1.Известно колличество жителей по N городам России. Распечатать название городов с колличеством жителей больше среднего по Росии

2. имеется список студентов вашей группы с указаниеме года рождения. Распечатать список студентов клму больше 16 лет

[ОДИНОЧЕСТВО В СЕТИ]

2

program age; 
 uses crt;
  type s=record
   f: string [15];   {фамилия}
   god:integer; {дата рождения}
  end;
var
   a:array[1..20] of s;
    i,n,j:integer;
	begin
	readln(n);
	for i:=1 to n do begin
	readln(a[i].f);
	readln(a[i].god);
	end;
	for i:=1 to n do
	if (2009-a[i].god > 16) writeln(a[i].f);
	readln;
	end.

1

program city; 
 uses crt;
  type s=record
   name: string [15];   
   kol:integer; 
  end;
var
   a:array[1..20] of s;
    i,n:integer;
	ag:real;
	begin
	readln(n);
	for i:=1 to n do begin
	readln(a[i].name);
	readln(a[i].kol);
	end;
	for i:=1 to n do
	ag:=ag+a[i].kol;
	ag:=ag/n;
	for i:=1 to n do
	if (a[i].kol >  ag) writeln(a[i].name);
	readln;
	end.

[Сумерки]

Спасибо, спасибо, спасибо