Исправить программу - Turbo Pascal (30214)

Формулировка задачи:

Помогите сделать программу через procedure.Программа работает, только нужно написать через procedure. Определена запись:

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

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

program SNG;
uses crt;
const m=3;
type
   gos=record
         name:string;
         S:real;
         peop, sch,hosp,inst:integer;
       end;
var G:array[1..m] of gos;
    i,j:integer;
    x:gos;s:real;
begin
clrscr;
  for i:=1 to m do begin 
    write('название государства'); readln(G[i].name);
    write('площадь территории'); readln(G[i].S);
    write('численность населения'); readln(G[i].peop);
    write('число школ'); readln(G[i].sch);
    write('больниц'); readln(G[i].hosp);
    write('вузов'); readln(G[i].inst);
 end;
 
    for i:=1 to m do     for j:=1 to m-1 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;
 
    for i:=1 to 3 do With G[i] do
      Writeln(name:30,S:10:2,Peop:10,sch:10,hosp:10,inst:10);
    readln;
end.

Решение задачи: «Исправить программу»

Листинг программы

const n=3; m=20;
type
  gos=record
    name: String[m];
    s: Real;
    peop, sch, hosp, inst: Integer;
  end;
var G: array [1..m] of gos;
procedure gRead;
var i: Integer;
begin
  for i:=1 to n do with G[i] do begin 
    Write('название государства: '); ReadLn(name);
    Write('площадь, население, школ, больниц, вузов: ');
    ReadLn(s,peop,sch,hosp,inst);
  end;
end;
procedure gSort;
var
  i, j: Integer;
  x: gos;
begin
  for i:=n downto 2 do for j:=2 to i 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;
procedure gWrite;
var i: Integer;
begin
  for i:=1 to n do with G[i] do
    WriteLn(name,'':m-Length(name),S:10:2,Peop:10,sch:10,hosp:10,inst:10);
end;
begin
  gRead; gSort; gWrite;
  Write('Нажмите Enter...'); ReadLn;
end.

Объяснение кода листинга программы

В начале кода объявляются две константы n и m, которые определяют количество государств и количество полей для каждого государства соответственно.
Затем объявляется тип данных gos, который представляет собой запись с полями name (название государства), s (площадь), peop (население), sch (школ), hosp (больниц) и inst (вузов).
Далее объявляется переменная G, которая представляет собой массив из m элементов типа gos.
В процедуре gRead происходит чтение данных о государствах из файла. Для каждого государства в массиве G выводятся поля name и s, а также поля peop, sch, hosp и inst.
После этого вызывается процедура gSort, которая сортирует массив G по полям peop и s. Для этого используется алгоритм сортировки пузырьком.
В процедуре gWrite происходит запись данных о государствах в файл. Для каждого государства в массиве G выводятся поля name, s, peop, sch, hosp и inst.
В конце кода вызывается функция ReadLn для чтения символа новой строки, а затем вызывается функция WriteLn для вывода сообщения Нажмите Enter....
Конец программы.