СРОЧНО! Сортировка массива строковых данных., Не понимаю почему не происходит ... Опции

[Stranger]

Доброго времени суток !
Вот друг попросил накидать программку(ака 1ую часть курсовой).
Накидал, но почемуто не происходит сортировка =(
Объясните где что не так плиз (желательно asap)
вот код

program p4;
uses strings;
var
mas:array[1..10,1..2] of string ;
c,x,y,l:integer;
input,output:text;
temp:string;
begin
     assign(input,'dan.txt');
     reset (input);
     assign(output,'res.txt');
     rewrite(output);

x:=0;
Repeat
 x:=x+1;
 Readln(input,temp);
 c:=pos(' ',temp);
 l:=length(temp);
 mas[x,1]:=copy(temp,1,(c-1));
 mas[x,2]:=copy(temp,c+1,(l-c));
 {y:=pos('r',mas[2,x]);
 delete(mas[2,x],y,3);}
until EOF(input);

for y:=1 to x do begin
if mas[y,2]>mas[y+1,2] then begin
temp:=mas[y,2];
mas[y,2]:=mas[y+1,2];
mas[y+1,2]:=temp;
temp:=mas[y,1];
mas[y,1]:=mas[y+1,1];
mas[y+1,1]:=temp;

end;
end;

for y:=1 to x do  writeln(output,mas[y,1],'  ',mas[y,2]);

     close(input);
     close(output);
     readln;
end.