Записи Опции

[snopy]

Помогите исправить эту программу пожайлуста.
2.Определена запись:

Record
	name:array [1..m] of char; {название государства}
	sqr : real; {площадь территории}
	peop, sch, hosp, inst: word{численность населения, число школ, больниц, вузов}
end;

Используя предложенную структуру записи, составить программу, которая для указанных государств СНГ вводит информацию и печатает название государства, удовлетворяющего требованиям, указанным в варианте и соответствующие характеристики.
Россия, Молдова, Армения. Cписок государств в порядке убывания плотности населения.

Program CNG;
const
	m=3;
type
gosydarstvo=record
	 name:array[1..m] of char;
	 sqr:real;
	 sch:1..5000;
	 hosp:1..5000;
	 inst:1..5000;
	 sgr:1..50000;
	 treb:record
	 peop,sch,hosp,inst,sqr:1..5;
	 s:real;
end;
end;
var
  Group:array[1..m] of gosydarstvo;
  i:byte;
  buf:gosydarstvo;
   BEGIN
	   writeln;
	   for i:=1 to m do
		   with group[i].treb do
				begin
					writeln('Vvedite danye',i,'po gosydarstvy');
							write('Vvedite gosydarstvo: '); readln;
write('Vvedite  chislenost naselenia, chislo shkol, bolnich, vyzov, ploshad');
readln(peop, sch, hosp, inst, sqr)
   end;		 end.
   for i: to n do begin
	   with group[i].treb do
	   s=peop/sqr;
for i:=1 to n-1 do
	for j=i+1 to n do
		if group[i].treb.s<group[j].treb.s then
		   begin
		   buf:=group[i];
		   group[i]:=group[j];
		   group[j]:=buf;
		   end
END.