Есть ли английское слово — Pascal(Паскаль)

program basc;

var a:array [1..100] of string;
    n,i,j:integer;
    s,s1,c:string;
begin write('введите количество слов:');
      readln(n);
      for i:=1 to n do
        begin write('введите английское слово:');
              readln(a[i]);
        end;
      for j:=1 to n do
      for i:=1 to n-1 do
        begin s:=a[i];
              s1:=a[i+1];
              if s1[1]<s[1] then
                 begin c:=a[i];
                       a[i]:=a[i+1];
                       a[i+1]:=c;
                 end;
         end;
      for i:=1 to n do
        writeln(a[i]);
end.