Благодарю за помощь, но видимо, я допускаю где то ошибки в синтаксисе, ибо у меня и в Вашем случае у меня К=0. Массивы заполнял корявенько с помощью
for i:=1 to 10 do readln(a[i]);
for j:=1 to 10 do readln(a[j]);
оба массива имели одинаковые значение (в первом случае от 1 до 10, во втором случае от 10 до 1, в третьем случае все элементы, кроме третье имели значение 234, а третий = 2345)
Вопросы:
1) подскажите,пожалуйста, как вставлять листинги?
2) inc(i) - увеличивает значение i на 1, я правильно понял?
3) Объясните, пожалуйста, где ошибка в моём решении, и почему в Вашем у меня такой же результат?