Для указанных стран СНГ ввести информацию и напечатать название государства

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

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.sgroup[j].treb.s then
           begin
           buf:=group[i];
           group[i]:=group[j];
           group[j]:=buf;
           end
END.