Var s:string;
k,i:integer;
begin
writeln('vvedite slovo');
readln(s);
for i := 1 to length(s) do
if (s[i]='y') and (i mod 2=0)
then inc(k);
writeln ('k=',k);
readln ;
<span>end.</span>
Это номер столбца и строки
Изменил некоторые таблицы. Данных очень мало. Придумывай и набивай еще. Надо, чтобы поездок было много, в разные месяца и года. База находится по ссылке https://yadi.sk/d/pjPhSDS1TMjF4