Подсчитать количество букв «и» в списке, состоящем из пяти фамилий: Якубовский, Барханов, Ниссельсон, Терехин, Сидоров. Если таких букв чётное количество, то упорядочить эти фамилии по алфавиту. Напечатать исходный и упорядоченные списки — Pascal(Паскаль)

uses crt;
const n=5;
      s:array[1..n] of string=
('Якубовский','Барханов','Ниссельсон','Терехин','Сидоров');
var i,j,k:byte;
    b:string;
begin
clrscr;
writeln('Исходный список:');
k:=0;
for i:=1 to n do
 begin
  writeln(s[i]);
  for j:=1 to length(s[i]) do
  if s[i][j]='и'then k:=k+1;
 end;
writeln;
writeln('Количество букв и в списке=',k);
if odd(k) then write('Количество букв нечетное')
else
 begin
  writeln('Количество букв четное');
  for i:=1 to n-1 do
  for j:=i+1 to n do
  if s[i]>s[j] then
   begin
    b:=s[i];
    s[i]:=s[j];
    s[j]:=b;
   end;
  writeln;
  writeln('Список по алфавиту:');
  for i:=1 to n do
  writeln(s[i]);
 end;
readln
end.