Прежде всего, "не так" ваше чересчур вольное обращение с кавычками, апострофами и т.п. Вообще-то Паскаль понимает только один вид: ' (это где клавиша с русской буквой "Э"). Исправьте.
Есть еще одно. Старайтесь при считывании с экрана НЕ пользоваться оператором Read, лучше Readln. Read - он такой... немного скользкий, может внести путаницу. Ввод данных я бы оформил так:
Код:
for i := 1 to 4 do
begin
write ( 'введите xi , yi ') ;
readln ( x [ i ] , y [ i ] )
end ;
write( 'введите q ') ;
readln ( q ) ;