[s0Creator]

На всякий случАй вместо

Код:

fName: String[80];

( это старое представление коротких строк )
Напиши Везде ( и не только для fName )

Код:

fName: String;

В procedure TForm1.Button1Click(Sender: TObject);
В начале

Код:

SetLength(A,0);

В место

Код:

readln(f, buf); // прочитать строку из файла

Попробуй написать

Код:

 SetLength(A,Length(A)+1);
 readln(f, A[High(A)].X, A[High(A)].Y);
 buf := IntToStr(A[High(A)].X) + ' ' + IntToStr(A[High(A)].Y);