задан список из десяти городов. поменять местами названия любых двух городов, заканчивающихся буквой "а"

uses crt;
 
const
  n = 10;
  sp: array[1..n] of string = ('Москва', 'Орел', 'Глазов', 'Коломна', 'Ванино', 
                                  'Калуга', 'Серов', 'Ростов', 'Орша', 'Клин');
 
var
  i, j: integer; 
  x: string;
  s: array[1..n] of string;
 
begin
  clrscr; 
  writeln('Ishodnyj spisok:'); 
  for i := 1 to n do 
  begin
    s[i] := sp[i];
    writeln(sp[i]); 
  end;    
  writeln; 
  writeln('Izmenennyj spisok:'); 
  for i := 1 to n do 
  begin
    for j := 1 to n do 
      if (s[i][length(s[i])] = 'а') and (s[j][length(s[j])] = 'а') and (i <> j) then 
      begin
        x := s[i]; 
        s[i] := s[j]; 
        s[j] := x; 
        break; 
      end; 
    break; 
  end; 
  for i := 1 to n do 
    writeln(s[i]); 
end.

uses crt;
const n=10;
var a:array[1..n]of string;
    i,i1,i2:integer;
    s:string;
begin
clrscr;
writeln('Введите названия ',n,' городов, в том числе не менее 2 оканчивающихся на букву а');
i1:=0;
i2:=0;
for i:=1 to n do
 begin
  readln(a[i]);
  if a[i][length(a[i])]='а' then
   begin
    if i1=0 then i1:=i
    else if i2=0 then i2:=i;
   end;
 end;
if i2=0 then
 begin
  writeln('В списке нет двух городов для обмена');
  exit;
 end;
s:=a[i1];
a[i1]:=a[i2];
a[i2]:=s;
writeln('Список после обмена');
for i:=1 to n do
writeln(a[i]);
readln
end.