[fpc-pascal] What fonts are used for different languages on Linux, Win and Macs?

[Pew (piffle.the.cat)]

Hi Pascal list,

I have the following unit.

I probably need to define the font name for each language also does 
anyone know the standard linux fonts for these languages? How does this 
differ for Macs and Windows in Lazarus? I am trying to make this cross 
platform.

This is what I need help with doing, in Lazarus or Pascal.

type
   languages = ( English, Italian, German, Spanish, Esperanto, 
Simplified_Chinese, Japanese );

   {
   Ask user for language preference

   Question: How do I populate a combobox (drop down menu) with these 
enumerated values?
   Note that these will be added to as more languages are supported.

   Open ini file and text read file containing AnsiString constants

     e.g.
       if FileExists( filename ) then
         AStringList.LoadFromFile( filename );

   read and assign AnsiStrings from text file to variables
     e.g.
       // something like...

       var j,k : integer

       k := 1;
       for j := 0 to AStringList.count - 1 do
       begin
         AnsiString_noun_of_green_things[ language, k ] := 
AStringList.String[ j ];
         inc(k);
       end;

   close ini file
   close text file // since this is read with a LoadFromFile, is this 
necessary?
   }


unit testA.pas

type
   green_types = ( Fragment, Baby, Adult, Egg, Group_of_Green_things );
   fragments_to_eggs_subrange = Fragments..Eggs;

type
   languages = ( English, Italian, German, Spanish, Esperanto, 
Simplified_Chinese, Japanese );

// I probably need to define the font name for each language also
// does anyone know the standard linux fonts for these languages???

   AnsiString_noun_of_green_message_2D_array =
     array[languages,green_types] of AnsiString;
// etc etc etc

var
   AnsiString_noun_of_green_message
     : array[green_types] of AnsiString;
     {
       (' a Fragment', ' a Baby', ' an Adult',
        ' an Egg', ' The Group of Green Things');
     }
type
   language_array_of_AnsiString = array[ languages ] of AnsiString;

//...

var
   AnsiString_noun_of_green_things :array[ languages, green_jj ]of 
AnsiString;

// etc

   language : languages;