Внесите информацию о 10 городах Рф в массивы g (заглавие городка),

Const
   g:array [1..10] of string = ('Москва','Санкт-Петербург','Новосибирск','Екатеринбург','Нижний Новгород','Казань','Самара','Омск','Челябинск','Ростов-на-Дону');
   n:array [1..10] of longint = (12198,5192,1567,1428,1268,1206,1171,1174,1182,1115);
var
   i,imax,imin:longint;
begin
  imax:=1; imin:=1;
     for i:=1 to 10 do   
          begin     
              if n[i]gt;n[imax] then imax:=i;        
              if n[i]lt;n[imin] then imin:=i;   
end;

writeln('Город с наибольшей численностью ',g[imax]);
writeln('Город с меньшей численностью ',g[imin]);

end.