Исходящими данными для программы являются:название государства,численность населения,проживающего на его территории,площадь территории государства,число школ,вузов. Вводимая последовательность должна содержать информацию,как минимум,о трёх государствах. Напечатать данные о числе вузов в государстве с максимальной плотностью населения — Pascal(Паскаль)

uses crt;
type Tgos=record {тип запись-государства}
          naz:string[20];{название}
          chs:word;{численность}
          pls:word;{площадь}
          shk:word;{кол.школ}
          vuz:word;{кол.вузов}
          plt:real;{плотность населения}
          end;
var gs:array[1..50] of Tgos;{массив записей}
    n,i,imx:integer;{размер массива, счетчик циклов, индекс макс}
    mx:real;{значение макс}
begin
clrscr;
repeat
write('Kolichestvo gosudarstv (ne menee 3) n=');
readln(n);
until n>2;{если введем меньше 3х, повтор}
writeln('Vvedite dannye o ',n,' gosudarstvah:');
for i:=1 to n do
 begin
  writeln('Gosudarstvo ',i);
  write(' Nazvanie: ');readln(gs[i].naz);
  write(' Naselenie: ');readln(gs[i].chs);
  write(' Ploschad: ');readln(gs[i].pls);
  write(' Kolichestvo skol: ');readln(gs[i].shk);
  write(' Kolichestvo vuzov: ');readln(gs[i].vuz);
  gs[i].plt:=gs[i].chs/gs[i].pls;
 end;
mx:=gs[1].plt;imx:=1;
for i:=1 to n do
if gs[i].plt>mx then
 begin
  mx:=gs[i].plt;{находим макс плотность}
  imx:=i;{индекс государства в массиве}
 end;
writeln('Maximalnaya plotnost v ',gs[imx].naz,'=',mx:0:2,' ch/kv.km');
write('Kolichestvo vuzov=',gs[imx].vuz);
readln
end.