1.Создать массив записей следующего типа: Страна Территория в км2 Население млн.человек Столица Латвия 67,7 2,6 Рига Литва 65,2 3,4 Вильнюс Польша 313 34,8 Варшава Украина 603,7 50 Киев Россия 17075,4 139 Москва Найти и вывести страну с наибольшей плотностью населения. сделайте пожалуйсто(abc паскаль)

Program qw;
uses crt;
Type
   Atlas=Record
       country,capital:string;
       area,people:real;
     end;
   ps=File of atlas;
Var f:ps;
    z,t:atlas;
Begin
  assign(f,1.dat);
  rewrite(f);
    z.country:=Латвия; z.area:=67.7;
    z.people:=2.6; z.capital:=Рига;
    write(f,z);
    z.country:=Литва; z.area:=65.2;
    z.people:=3.4; z.capital:=Вильнюс;
    write(f,z);
    z.country:=Польша; z.area:=313;
    z.people:=34.8; z.capital:=Варшава;
    write(f,z);
    z.country:=Украина; z.area:=603.7;
    z.people:=50; z.capital:=Киев;
    write(f,z);
    z.country:=Россия; z.area:=17075.4;
    z.people:=139; z.capital:=Москва;
    write(f,z);
  Close(f);
  assign(f,1.dat);
  reset(f);
  read(f,t);
  while not(eof(f)) do
    begin
      read(f,z);  
      if t.people/t.area     end;
  close(f);
  writeln(Cтранa с наибольшей плотностью населения:);
  writeln(t.country, (плотность населения равна ,t.people/t.area:9:6, млн на кв.км));
end.