записи

[11111]

Помогите исправить эту программу пожайлуста.
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.

[Stilet]

write('Vvedite gosydarstvo: '); readln;

А в какую переменную тебе нужно ввести государство?

[puporev]

Стр.7 sqr – стандартная функция Паскаля и ее нельзя использовать как переменную.
Стр.11 – повтор.
Стр.12-13, 18, 23-30 – проблемы с вводом чисел, переполняется стек, надо разбираться, если не сможешь, убери.
Стр.22 – не надо.
Стр.30 – убрать end.
Дальше галиматья, хочешь, разбирайся.
Стр.31,35 – откуда n.
Стр.35 необъявленная переменная j.
Вот очень простой рабочий код. Будут вопросы, пиши.

program SNG;
uses crt;
const m=3;
type
   gos=record
         name:string;
         S:real;
         peop:word;
         sch:word;
         hosp:word;
         inst:word;
       end;
var G:array[1..m] of gos;
    i,j:integer;
    x:gos;s:real;
begin
clrscr;
    G[1].name:='Россия'; G[2].name:='Молдова '; G[3].name:='Армения';
    G[1].peop:=140;G[2].peop:=20;G[3].peop:=40;
    G[1].S:=500;G[2].S:=20;G[3].S:=60;
    G[1].sch:=5000;G[2].sch:=200;G[3].sch:=100;
    G[1].hosp:=3000;G[2].hosp:=100;G[3].hosp:=60;
    G[1].inst:=2000;G[2].inst:=20;G[3].inst:=20;

    for i:=1 to 2 do begin
    for j:=1 to 2 do
    if G[j].Peop/G[j].S<G[j+1].Peop/G[j+1].S
    then begin
    x:=G[j]; G[j]:=G[j+1];G[j+1]:=x;
    end;end;
    for i:=1 to 3 do
    Writeln(G[i].name);
    readln;end.