Дан список стран и их столиц. По названию страны определить ее столицу

program stolica;
type
str = (Francia, Rossia, Belarus, Ukraina, Polsha);
stl = (Parij, Moskva, Minsk, Kiev, Varshava);
var
i : integer;
n : str;
k : stl;
begin
writeln ('Strana i ee nomer:');
writeln('Francia ',ord(Francia));
writeln('Rossia ',ord(Rossia) );
writeln('Belarus ',ord(Belarus));
writeln('Ukraina ',ord(Ukraina));
writeln('Polsha ',ord(Polsha));
writeln('vvedite nomer strani: ');
readln(i);
writeln('stolica:');
case i of
0: writeln('Parij');
1: writeln('Moskva');
2: writeln('Minsk');
3: writeln('Kiev');
4: writeln('Varshava');
end;
readln;
end.

program marazm;
 
uses crt;
 
var
i : integer;
stol:string;
 
begin
writeln('France, Russia, Belarussia, Ukraina, Polsha');
readln(stol);
i:=0;
if stol='France' then i:=1
else if stol='Russia' then i:=2
else if stol='Belarussia' then i:=3
else if stol='Ukraina' then i:=4
else if stol='Polsha' then i:=5;
 
If i=0 then writeln('Takoj strani net v spiske')
else begin
writeln('Main city of ', stol, ' is');
case i of
1: writeln('Parij');
2: writeln('Moskva');
3: writeln('Minsk');
4: writeln('Kiev');
5: writeln('Varshava');
end;
end;
 
readln;
end.