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

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

Program CNG;
const
  m = 3;
type
  gosydarstvo = record
    name: string[10];
    peop, sch, hosp, inst, sqr: longint;
    s:real;
  end;
 
const
  Group: array[1 .. m] of gosydarstvo = (
    (name: 'russia'; peop:150000000; sch:0; hosp:0; inst:0; sqr:17000000),
    (name:'moldova'; peop:  3340000; sch:0; hosp:0; inst:0; sqr:33700),
    (name:'ukraina'; peop:  3213000; sch:0; hosp:0; inst:0; sqr:30000)
  );
 
var
  i, j: 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');
      readln(peop, sch, hosp, inst)
    end;         
  
  for i := 1 to m do
    group[i].s := group[i].peop / group[i].sqr;
 
  for i := 1 to m do
    for j := m downto i + 1 do
      with group[i] do
        if group[j - 1].s < group[j].s then begin
          buf := group[j - 1]; group[j - 1] := group[j]; group[j] := buf;
        end;
 
  for i := 1 to m do
  with group[i] do begin
    writeln(name:10, s:10:5);
  end;
END.

program CNG;
 
const
  m = 3;
 
type
  gosydarstvo = record
    name: string[10];
    peop, sch, hosp, inst, sqr: longint;
  end;
 
begin
  writeln;
  var a := Range(0, m - 1).Select(i -> 
  begin
    var g: gosydarstvo;
    writeln('Vvedite danye ', i, ' po gosydarstvy:');
    begin
      write('Vvedite gosydarstvo: '); readln(g.name);
      write('Vvedite chislenost naselenia, chislo shkol, bolnich, vyzov');
      readln(g.peop, g.sch, g.hosp, g.inst);
      write('введите площадь:'); readln(g.sqr)
    end;
    result := g;
  end).ToArray;
  
  a := a.OrderBy(v -> 1000 * v.sch / v.peop).ToArray;
  writeln(a.Select(v -> Format('Страна: {0} ; характеристика: {1}', v.name, 1000 * v.sch / v.peop)).JoinIntoString(NewLine));
end.