Список из 20 названий горных вершин. Переписать в другой список только те, название которых оканчивается на «тау»

program c4;
uses crt;
var a:array[1 .. 5] of string;
b:array[1 .. 5] of string;
i,c,cnt, ii, f:integer;
tmp:string;
begin
writeln('Введите 10 городов');
for i:=1 to 5 do begin
readln(a[i]);
c:=length(a[i]);
if a[i][c]='тау' then begin
inc(ii);
 b[ii]:=a[i];
 end;
 end;
 writeln('Список гор заканчивающихся на тау');
 for i:=1 to ii do writeln(b[i]);
 writeln('-----');
 repeat
 f:=0;
 for i:=1 to ii-1 do begin
 if ((ord(b[i][1]))>(ord(b[i+1][1]))) then begin
 f:=1;
 tmp:=b[i];
 b[i]:=b[i+1];
 b[i+1]:=tmp;
 end;
 end;
 until f=0;
 writeln('Отсортированный массив');
 for i:=1 to ii do writeln(b[i]);
 end.

const c = '                              ';
var a: array [1 .. 5] of string;
    b: array [1 .. 5] of string;
    i, ii: integer;
    f: boolean;
    tmp:string;
begin
  ii := 0;
  writeln('Введите 5 гор:');
  for i := 1 to 5 do begin
    readln(a[i]);
    if (length(a[i]) >= 3) and (copy(a[i], length(a[i]) - 2, 3) = 'тау')
      then begin
        inc(ii);
        b[ii] := a[i];
      end;
  end;
  if ii = 0
    then writeln('Нет гор, заканчивающихся на тау')
    else begin
      writeln('Список гор, заканчивающихся на тау');
      for i := 1 to ii do writeln(b[i]);
      writeln('-----');
      repeat
        f := true;
        for i := 1 to ii - 1 do
          if copy(b[i] + c, 1, 30) > copy(b[i+1] + c, 1, 30)
            then begin
              f := false;
              tmp:=b[i];
              b[i]:=b[i+1];
               b[i+1]:=tmp
            end
      until f;
      writeln('Отсортированный массив');
      for i := 1 to ii do writeln(b[i])
    end;
  readln
end.

          if b[i]>b[i+1] then

const
  n=20;
var
  a, b: array [1..n] of string;
  t: string;
  nb, i, j: integer;
begin
  nb:=0;
  WriteLn('Введите названия горных вершин (',n,' шт.):');
  for i:=1 to n do begin
    Write(i:2,': '); ReadLn(a[i]);
    if copy(a[i],Length(a[i])-2,3)='тау' then begin
      inc(nb); b[nb]:=a[i];
      j:=nb;
      while (j>1) and (b[j-1]>b[j]) do begin
        t:=b[j-1]; b[j-1]:=b[j]; b[j]:=t;
        dec(j);
      end;
    end;
  end;
  WriteLn('Список горных вершин, оканчивающихся на -тау:');
  for i:=1 to nb do WriteLn(i:2,': ',b[i]);
end.