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

Uses crt,GraphABC;
 
var f:text;
    i,xy:integer;
    s,sl,k:string;
    kod,x,j:integer;
    a:array [1..4] of integer;
 
begin
     Assign(f,'1.txt');
     reset(f);
     While not eof(f) do
     begin
     readln(f,s);
     s:=s+' ';
     sl:='';
     j:=1;
     repeat
     sl:=sl+s[j];
     inc(j);
     until s[j]=' ';
     if sl='Rectangle' then
     begin
       For i:=j+1 to length(s) do
       if s[i]<>' ' then k:=k+s[i] else
                                   begin
                                   inc(xy);
                                   val(k,x,kod);
                                   a[xy]:=x;
                                   k:='';
                                   end;
     rectangle(a[1],a[2],a[3],a[4]);
     end;
 
     If sl='Circle' then
     begin
       For i:=j+1 to length(s) do
       if s[i]<>' ' then k:=k+s[i] else
                                   begin
                                   inc(xy);
                                   val(k,x,kod);
                                   a[xy]:=x;
                                   k:='';
                                   end;
     Circle(a[1],a[2],a[3]);
     end;
     xy:=0;
     end;
     close(f);
end.