Даны название 20-ти стран и частей света,в которые они находятся.Определить, есть ли среди них страны,находящиеся в Африке или в Азии

type strana = record
     x,y:array[1..20] of string;
     end;
var s:strana; i:integer;
begin
for i:=1 to 20 do
begin
with s do
begin
writeln('Ñòðàíà #',i);
write('Íàçâàíèå : ');
readln(s.x[i]);
write('×àñòü ñâåòà: ');
readln(s.y[i]);
end;
end;
 
writeln('Ñòðàíû íàõîäÿùèåñÿ â Àôðèêå: ');
for i:=1 to 20 do
if (s.y[i]='Àôðèêà') then writeln(s.x[i]);
 
writeln('Ñòðàíû íàõîäÿùèåñÿ â Àçèè: ');
for i:=1 to 20 do
if (s.y[i]='Àçèÿ') then writeln(s.x[i]);
end.

program strany;
 
var
    countries: array[1..20, 1..2] of String;
    i: Integer;
    ans: Boolean;
 
begin
    ans := False;
    writeln('Введите страны и континенты, по слову в строке (первая строка - страна, вторая - её континент, третья - другая страна и т. д.):');
    for i:=1 to 20 do
    begin
        readln(countries[i, 1]);
        readln(countries[i, 2]);
        if (countries[i, 2] = 'Africa') or (countries[i, 2] = 'Asia') or (countries[i, 2] = 'Африка') or (countries[i, 2] = 'Азия') then
            ans := True;
        readln;
    end;
    writeln('');
    if ans = True then
    begin
        writeln('Вот африканские и азиатские страны:');
        for i:=1 to 20 do
        begin
            if (countries[i, 2] = 'Africa') or (countries[i, 2] = 'Asia') or (countries[i, 2] = 'Африка') or (countries[i, 2] = 'Азия') then
                writeln(countries[i, 1]);
        end;
    end else
        writeln('Нет стран из Африки или Азии');
end.