Создать тип данных и описать структуру, отображающую следующую информацию - Pascal - Ответ 1144793

Program BBC;
uses crt;
type
mas=array [1..3] of integer;
gos=record
     naz: string[20];
     pl,ch,doh: Integer;
     kol: mas;
     mor: char;
     case form: integer of
         1: ();
         2: ();
         3: ();
     end;
Pelem=^Telem;
Telem=record
       Inf: gos;
       Left, Right: Pelem;
      end;
Var
   Head: Pelem;
   n,i,j:integer;
   x: gos;  el: pelem;
Procedure Tab(n: Integer); Begin GoToXY(n,WhereY); End;
 
Procedure vvod;
begin
      with x do
      begin
          WriteLn('Государство № ',i);
          Write('Название: '); ReadLn(naz);
          Write('Площадь территории: '); ReadLn(pl);
          Write('Численность населения: '); ReadLn(ch);
          Write('Общий доход населения в $: '); ReadLn(doh);
          Write('Количество больниц: '); ReadLn(kol[1]);
          Write('Количество школ: '); ReadLn(kol[2]);
          Write('Количество вузов: '); ReadLn(kol[3]);
          Write('Наличие выхода к морю: '); ReadLn(mor);
          WriteLn('Форма правления: ');
          WriteLn('(1-Республика, 2-Королевство');
          WriteLn('     3-малое гос-во        )');
          ReadLn(form);
          clrscr;
       end;
  end;
Procedure newring(x: gos);
begin
     New(Head); Head^.inf:=x;
     Head^.Left:=Head;
     Head^.Right:=Head;
end;
Procedure add(x: gos);
begin
     New(El); El^.inf:=x;
     Head^.left^.Right:=El;
     El^.Left:=Head^.Left;
     El^.right:=Head;
     Head^.Left:=El;
End;
procedure upor;
var d: pelem;
begin
     for i:=1 to n do
     begin
     el:=head;
     while el^.right<>head do
     begin
     d:=el^.right;
     if el^.inf.doh>d^.inf.doh then
     begin
      x:=d^.inf;
      d^.inf:=el^.inf;
      el^.inf:=x;
     end;
     el:=el^.right;
     end;
     end;
     for i:=1 to n do
     begin
     el:=head;
     while el^.right<>head do
     begin
     d:=el^.right;
     if (el^.inf.doh=d^.inf.doh) and (el^.inf.kol[3]/el^.inf.ch>d^.inf.kol[3]/el^.inf.ch) then
     begin
      x:=d^.inf;
      d^.inf:=el^.inf;
      el^.inf:=x;
     end;
     el:=el^.right;
     end;
     end;
end;
procedure print;
begin
     El:=Head;  j:=1;
     repeat
     with El^.inf do
     begin
          WriteLn('Государство № ',j);
          WriteLn('Название: ',naz);
          WriteLn('Площадь территории: ',pl);
          WriteLn('Численность населения: ',ch);
          WriteLn('Общий доход населения в $: ',doh);
          WriteLn('Количество больниц: ',kol[1]);
          WriteLn('Количество школ: ',kol[2]);
          WriteLn('Количество вузов: ',kol[3]);
          WriteLn('Наличие выхода к морю: ',mor);
          WriteLn('Форма правления: ');
          if form=1 then writeln('Рeспублика');
          if form=2 then writeln('Монархия');
          if form=3 then writeln('Малое гос-во');
       readkey;  clrscr;
     end;  j:=j+1;
    El:=El^.right;
    until El=Head;
end;
Procedure delmax;
begin
el:=Head;
while el^.right<>Head do
begin
     if el^.inf.doh>300 then
     begin
      El^.left^.right:=El^.right;
      El^.right^.left:=El^.left;
      Dispose(el);
     end;
el:=el^.right;
end;
WriteLn('Данные  удалены');
end;
 
 
begin
     clrscr;
     Write('Введите кол-во государств: '); ReadLn(n);
     clrscr; i:=1;
     with x do vvod;
     newring(x);
     for i:=2 to n do
     begin
     vvod;
     add(x);
     end;
     WriteLn('Формирование кольца завершено');
     WriteLn('Элементы кольца');
     print;
     upor;
 
     WriteLn('Упорядоченные элементы кольца');
     print;
     delmax;
 
     WriteLn('Кольцо после удаления c наибольшим доходом');
     print;
 
 
      Writeln('Введите данные ещё о двух государствах: ');
     i:=1;
     with x do vvod;
     newring(x);
     for i:=2 to 2 do
     begin
     vvod;
     add(x);
     end;
 
     repeat until keypressed;
 end.