Растровая графическая информация

Program n_58; var   s: array[1..10] of real = (244.1, 357, 132, 43.1, 504.8, 301.2, 312.7, 92.0, 337, 551); // площадь   gn: array[1..10] of real; // густота населения   k: array[1..10] of real = (58100, 81200, 10300, 5190, 39100, 57200, 38500, 9800, 5060, 57800); // количество   n: array[1..10] of string = ('великобритания', 'германия', 'греция', 'дания', 'испания', 'италия', 'польша', 'португалия', 'финляндия', 'франция');   i, j: integer;   x: real;   r: string; begin   for i : = 1 to 10 do gn[i] : = k[i] / s[i];   for i : = 1 to 10 do     for j : = i + 1 to 10 do       if gn[i] > gn[j] then        begin         x : = gn[j]; gn[j] : = gn[i]; gn[i] : = x;         r : = n[j]; n[j] : = n[i]; n[i] : = r;       end;   for i : = 1 to 10 do writeln(n[i], ' ', gn[i]: 0: 2); end.