Поменять местами слово, начинающееся на 'a', со словом, оканчивающимся на 'я' - Turbo Pascal

uses crt;
const n=10;
var X:array[1..n] of string[10];
    i,i1,i2,k:byte;
    s:string[10];
begin
clrscr;
writeln('Программа обработки данных строкового типа');
writeln('Введите ', n,' слов из 4-10 руских букв');
For i:=1 to n do
 begin
  write(i, '-e слово ');
  readln(x[i]);
 end;
k:=0;i1:=0;
For i:=1 to n do
if x[i][1]='а'then
 begin
  k:=k+1;
  i1:=i;
 end;
if k=0 then
 begin
  write('Слова на букву а нет, работа программы завершена!');
  readln;
  exit;
 end;
if k>1 then
 begin
  write('Слова на букву а несколько, работа программы завершена!');
  readln;
  exit;
 end;
k:=0;i2:=0;
For i:=1 to n do
if x[i][length(x[i])]='я'then
 begin
  k:=k+1;
  i2:=i;
 end;
if k=0 then
 begin
  write('Слова, оканчивающегося на букву я нет, работа программы завершена!');
  readln;
  exit;
 end;
if k>1 then
 begin
  write('Слов,оканчивающегося на букву я несколько, работа программы завершена!');
  readln;
  exit;
 end;
s:=x[i1]; x[i1]:=x[i2]; x[i2]:=s;
writeln('Обмен слов:');
For i:=1 to n do
write(' ',x[i]);
readln
end.