Расположить по алфавиту введенные слова, записанные латинскими буквами — Pascal(Паскаль)

Program р54;
  uses crt;
  const n=3;
  var a:array[1..n] of string;
      r:string;
      i,j:integer;
begin
  clrscr;
  for i:=1 to n do
    begin
      write(i,' ');readln(a[i];
    end;
  for i:=1 to n-1 do
    begin
      for j:=i+1 to n do
      if a[i] >a[j] then
        begin
          r: =a[i];a[i]: =a[j];a[j]: =r;
        end;
    end;
  for i:= 1 to n do
  writeln(a[i]);
  readkey;
end.