Поменять слова местами

program lab_5;
uses crt;
const n=10;
var
X:array[1..n] of string[10];
dl:integer;
i,j:byte;
 
begin
clrscr;
writeln('Программа обработки данных строкового типа');
writeln('Введите ', n,' слов из 4-10 символов');
For i:=1 to n do begin
write(i, '-e слово ');readln(x[i]);end;
writeln('Введенные слова');
For i:=1 to n do writeln(i,'-oe слово' ,x[i]);
     dl:=length(x[i]);
readln;
 
writeln('Преобразованные слова');
For i:=1 to n do write(' ',x[i]);
readln;
 
end.

program lab_5;
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.

For i:=1 to n do
if x[i][1] in ['A','a','А','а'] then

if x[i][length(x[i])]='я'then