Pascal по названию страны ,определить назв континента

[lialia]

Имеются описания:
Type country=(Germany,Cuba,Laos,Monaco,B angladesh,Ukraine);
Continent=(Asia,America,Europe);
var
s:country;
c:continent;
По s-названию страны определить с-название континента
только нужно сделать как-то без массивов,а я не знаю как,не поможите?

[Poma][a]

Например так :

const
    asia = 'тут страны принадлежащие азии';
 
...
   if Pos (s, asia) <> 0 then
       WriteLn ('Asia')
..

[lialia]

эмм.. так?
const
asia = 'Bangladesh,Laos,';
America='Cuba';
Europe='Monaco,Germany,Ukraine';
begin
crscr;
if Pos (s, asia) <> 0 then
WriteLn ('Asia')
if Pos (s, America) <> 0 then
WriteLn ('America')
if Pos (s, Europe) <> 0 then
WriteLn ('Europe')

[Poma][a]

const
    asia = 'Bangladesh Laos';
    amer ='Cuba';

var
    s : string;
begin
    ReadLn (s);
    if Pos (s, asia) <> 0 then
        WriteLn ('Asia')
    else if Pos (s, amer) <> 0 then
        WriteLn ('Amer')
    else
        WriteLn ('Europe')
end.

Не проверял..
Но такое решение проходит при условии :
1)

нужно сделать как-то без массивов

Если рассматривать строку как отдельную структуру, а не массив символов
2) Что ввод будет в таком виде - 1 заглавная буква, далее все маленькие строчные, без пробелов и разделителей
3) Что название страны гарантированно имеется в нашей "базе" стран

[lialia]

duplicate identifier (asia)
такую ошибку выдает,что делать?

[Poma][a]

такую ошибку выдает,что делать?

Откройте новый файлик и скопируйте полностью, без каких-либо изменений мой код.. Сохраните, скомпилируйте и возрадуйтесь!

[lialia]

ой получилось,спасибо огромное)))