вызначить континент за названием страны, которая вводится с клавиатуры Pascal ABC

[программирование]

добрый вечер, программисты. помогите, пожалуйста, написать программу на языке Pascal ABC.

нужно создать два типа:
strana=(Cuba,Laos, Monako,Nepal,Canada,Ukraine) и
Kontinent=(Asia,America,Europe).
вызначить Cn - название континента за названием страны Kr, которая вводится с клавиатуры.

программа по теме перечисляемый и ограниченный тип даных.


например, вызначить время года по введенному с клавиатуры числа месяца.

program zd_2;
uses crt;
type pora_roku = (winter,spring,summer,autumn);
     mis  = (cich,lut,ber,kvit,trav,cher,lip,cerp,ver,gov,lis,grud);
var  x, y: mis;  j:integer; pr: pora_roku;
begin
        clrscr;
        writeln('число місяця і пора року');
        writeln('введіть число місяця');
        readln(j);
        x:=mis(j-1);
       if (x>=grud)  and (y<=lut) then  pr:=pora_roku(0);
       if (x>=ber)  and (y<=trav) then pr:=pora_roku(1);
       if (x>=cher)  and (y<=cerp) then pr:=pora_roku(2);
       if (x>=ver)  and (y<=lis) then pr:=pora_roku(3);
        case pr of
       winter: writeln ('зима');
       spring:writeln('весна');
       summer:writeln('літо');
       autumn:writeln('осінь');
      end;
      readln;
end.

заранее, огромное спасибо.