Помогите плизз с созданием списка

[Julia-21]

в общем суть задания такая: классификатор стран (код название страны на русском и на англ языках)
input.txt:
DE, Германия, Germany.
DK, Дания, Denmark.
DZ, Алжир, Algeria.
EA,Эстония, Estonia.
EG,Арабская республика Египет, Egypt Arab.
ES,Испания, Spain.

output.txt
АЛЖИР, АРАБСКАЯ РЕСПУБЛИКА ЕГИПЕТ, ГЕРМАНИЯ, ДАНИЯ, ИСПАНИЯ, ЭСТОНИЯ.

помоите! очень нада для зачета...

[Tkirill]

uses crt;
var
mas:array[1..100] of string;
fil,f:text;
s,st,rus:string;
i,j,n:integer;
begin
clrscr;
assign(fil,'c:\in.txt');
reset(fil);
assign(f,'c:\out.txt');
rewrite(f);
n:=0;
while not eof(fil) do
begin
readln(fil,s);
st:=s;
delete(st,1,pos(',',s)+1);
rus:=copy(st,1,pos(',',st)-1);
n:=n+1;
mas[n]:=rus;
end;
close(fil);
for i:=1 to n-1 do
begin
for j:=1 to n-i do
begin
if mas[j][1]>mas[j+1][1] then
begin
s:=mas[j];
mas[j]:=mas[j+1];
mas[j+1]:=s;
end;
end;
end;
for i:=1 to n-1 do
write(f,mas[i]+', ');
writeln(f,mas[n]+'.');
close(f);
readln;
end.


Подразумеваются, что данные вводятся так
DK, Дания, Denmark. (перед запятой пробела нет, а после есть))

[Julia-21]

огромное спасибо!!!!

[puporev]

Вот сдесь сортировка только по первой букве
if mas[j][1]>mas[j+1][1] then
а надо сравнивать полностью строки, тогда сортировка будет по всем буквам.
if mas[j]>mas[j+1] then