рисование графических примитивов по данным из файла

uses graph;
const pr:array[1..5] of string=('Rectangle','Circle','Line','Ellipse','Arc');
var f:text;
    n,i,x,y:integer;
    s,s1:string;
    a:array[1..6] of integer;
begin
assign(f,'F1.txt');
reset(f);
x:=0;
initgraph(x,y,'');
while not eof(f) do
 begin
  readln(f,s);
  s1:=copy(s,1,pos(' ',s)-1);
  for i:=1 to 5 do
  if s1=pr[i] then x:=i;
  delete(s,1,pos(' ',s));
  s:=s+' ';
  n:=0;
  while pos(' ',s)>0 do
   begin
    n:=n+1;
    s1:=copy(s,1,pos(' ',s)-1);
    val(s1,a[n],y);
    delete(s,1,pos(' ',s));
   end;
  case x of
  1:rectangle(a[1],a[2],a[3],a[4]);
  2:circle(a[1],a[2],a[3]);
  3:line(a[1],a[2],a[3],a[4]);
  4:ellipse(a[1],a[2],a[3],a[4],a[5],a[6]);
  5:arc(a[1],a[2],a[3],a[4],a[5]);
  end;
 end;
close(f);
readln
end.

uses graphABC;
const pr:array[1..5] of string=('Rectangle','Circle','Line','Ellipse','Arc');
var f:text;
    n,i,x,y:integer;
    s,s1:string;
    a:array[1..6] of integer;
begin
assign(f,'F1.txt');
reset(f);
while not eof(f) do
 begin
  readln(f,s);
  s1:=copy(s,1,pos(' ',s)-1);
  for i:=1 to 5 do
  if s1=pr[i] then x:=i;
  delete(s,1,pos(' ',s));
  s:=s+' ';
  n:=0;
  while pos(' ',s)>0 do
   begin
    n:=n+1;
    s1:=copy(s,1,pos(' ',s)-1);
    val(s1,a[n],y);
    delete(s,1,pos(' ',s));
   end;
  case x of
  1:rectangle(a[1],a[2],a[3],a[4]);
  2:circle(a[1],a[2],a[3]);
  3:line(a[1],a[2],a[3],a[4]);
  4:ellipse(a[1],a[2],a[3],a[4],a[5],a[6]);
  5:arc(a[1],a[2],a[3],a[4],a[5]);
  end;
 end;
close(f);
end.