Парни помогите решить задачу, Необходимо взять из txt фаила данные , чтобы на экране появилась стрел Опции

[skilla.net]

сабж , парни , помогите , у нас начался Паскаль , а я полный ноль!!!! Необходимо взять координаты из txt фаила , чтобы во время запуска программы появилась стрелочка , у которой треугольник будет равнобедренным!!!

[volvo]

че же мне делать ...((

Задавать нормальные координаты... Вот, смотри что выходит:

uses graph;

var
  gd, gm: integer;
  X, Y: integer;
  f: text;

begin
  assign(f, 'strelka.txt');
  reset(f);

  initgraph(gd, gm, '');
  if graphresult = grOk then begin

    readln(f, X, Y);
    moveto(X, Y);

    while not eof(f) do begin
      readln(f, X, Y);
      lineto(X, Y);
    end;
    readln;
  end

  else writeln('error...');

  close(f);
end.