Что не так в программе?
В 13 строке после ключевого слова then нельзя использовать and. После записиc:=c + A[i] нужно поставить точку с запятой. Также и после блока else
13 строка, удали скобки с выражений! then Begin c:=... ; y:=...;else вот так