Помогите написать программу

[SnakeTH]

Помогите написать программу

type конт = (Америка, Африка, Европа, Азия)
страна = (Россия, Канада, Алжир, Китай);
var кон: конт; st: страна;
По значению переменной конт. присвоить переменной st название этой страны.
Сначала написал программу по другому, когда создавал тему нашел на просторах инета как человек делал наподобие программу и вот переделал

uses crt;
Type cont=(USA, Africa, Europe, Asia);
     strana=(Rossia, Canada, Algeria, China);
Const continent:array[0..3] of string=
             ('Америка', 'Африка', 'Европа', 'Азия');
      stranu:array[0..3] of string=
              ('Канада', 'Алжир', 'Россия', 'Китай');
var con: cont;
    st: strana;
    k:byte;
begin
clrscr;
writeln('Выберите континент 0-Америка 1-Африка 2-Европа 3-Азия');
repeat
readln(k);
until k in [0..3];
con:=cont(k);
st:=strana(ord(con));
writeln('Континент:',continent[ord(con)]);
writeln('Страна:',stranu[ord(con)]);
readln
end.

А вот так изначально я написал:

Type cont=(USA, Africa, Europe, Asia);
strana=(Russia, Canada, Algeria, China);
var c:cont;
n:Integer;
Begin
 Writeln('Введите номер континента 0-Америка 1-Африка 2-Европа 3-Азия');
 Read(n);
 Case n of
 0:c:=USA;
 1:c:=Africa;
 2:c:=Europe;
 3:c:=Asia;
 end;
 write('Страна:');
  case c of
  USA:write('Канада');
  Africa:write('Алжир');
  Europe:write('Россия');
  Asia:write('Китай');
  end;
end.

Какой вариант будет правильнее?

 

[Vladimir_S]

Какой вариант будет правильнее?

Да оба нормальные.

 

[SnakeTH]

Да оба нормальные.

Ну они обе работают, просто не знаю какая точно подходит к условию.