Найти в списке все фамилии, начинающиеся с букв "В" или "Г"

uses crt;
const sp:array[1..10]of string=('Валуев','Орлов','Губин','Попов','Ванин',
                                'Голубев','Сухов','Горин','Дубов','Веснин');
var i:integer;
begin
clrscr;
writeln('Spisok familij na B и Г:');
for i:=1 to 10 do
if (sp[i][1]='В')or(sp[i][1]='Г')
then writeln(sp[i]);
readln
end.

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

uses crt;
var s:array[1..100]of string;
    n,i,k:integer;
begin
clrscr;
write('Kolichestvo strok n=');
readln(n);
writeln('Vvedite ',n,' strok');
for i:=1 to n do
   begin
    write('s[',i,']: ');
    readln(s[i]);
  end;
k:=0;
for i:=1 to n do
if s[i][pos('д',s[i])+1]='а'then
k:=k+1;
if k>0 then writeln('Takie stroki est!')
else if k=0 then writeln('Takih strok net!');
readln
end.