Wyrysowanie okręgu problem .

Oto moj program:

Program wykres_kolowy;
uses crt,graph;
const
nazwa : string = ('temp.txt');
type
 tablica = array[1..20] of real;
 procenty = array[1..20] of real;
 stopnie = array[1..20] of real;
 wordy = array[1..20] of word;
var
 x,y : smallint;
zn,r : byte;
zn1 : char;
 l : real;
 plik : text;
 pliknext : text;
 n,i,xs,ys : integer;
 tab : tablica;
 tab2 : procenty;
 tab3 : stopnie;
 tab4 : wordy;
 sterownik,tryb : integer; {zmienne do obsugi trybu graficznego}
 suma : real;

{---------------wprowadza dane do pliku---------------------}
begin
 clrscr;
 assign(plik,nazwa);
 rewrite(plik);
 write('Ile liczb ma znajdowa† si© w pliku tekstowym? (0..20) n = ');
 readln(n);
 writeln(plik,n);
 i:=0;
 repeat
  write('Podaj liczb© rzeczywistĄ od 0 do 20: ');
  readln(l);
  if (l>=0) and (l<=20) then
   begin
    writeln(plik,l);
    inc(i);
   end
  else
   writeln('Wpisana liczba jest mniejsza niľ zero lub wi©ksza niľ dwadziecia !');
 until i=n;
 close(plik);


{----------rysuje wykres------------------------------------}


   assign(pliknext,nazwa);
   reset(pliknext);
   readln(pliknext,n);
   for i:=0 to n-1 do
    begin
     readln(pliknext,l);
     tab[i+1] := l;
    end;
   close(pliknext);
   for i := 1 to n do
    writeln(tab[i]:0:1);
   suma := 0;
   for i := 1 to n do
     suma := tab[i]+suma;
   writeln('Suma wynosi: ',suma:0:2);
   for i := 1 to n do
     tab2[i] := (tab[i]/suma)*100;
   for i := 1 to n do
    begin
     write(tab[i]:0:2 ,' to: ');
     writeln(tab2[i]:0:2,'%');
    end;
   for i := 1 to n do
    tab3[i] := (360*tab2[i])/100;

   for i := 1 to n do
    writeln(tab3[i]:0:1);

  for i := 1 to n do
    tab4[i] := trunc(tab3[i]);
  for i := 1 to n do
    writeln('Word: ',tab4[i]);
  readln;
//=====================RYSOWANIE=====================================
   sterownik:=detect;
   initgraph(sterownik,tryb,'');
   sterownik:=detect;
   initgraph(sterownik,tryb,'');
   x:=getmaxx;
   y:=getmaxy;
   xs:=x div 2;
   ys:=y div 2;
//   pieslice(xs,ys,tab4[1],tab4[2],200);

 ** for i := 1 to n do
   pieslice(xs,ys,tab4[i],tab4[i+1],200);**

 readln;
end.

mam problem z wyrysowanie tych wycinków wykresu kołowego.
pomoże ktoś ? ;)

odświeżam bo to pilne. da ktoś radę ?

podstawowe pytanie: chcesz to sam napisac (i mamy Cie naprowadzic) czy chcesz zebysmy napisali to za Ciebie? Bo to roznica.
jesli chccesz tylko pomocy to opisz dokladnie w czym lezy problem. samo "mam problem" niewiele mowi. nie wiadomo czy nie wiesz jak to zrobic, czy wiesz ale nie wychodzi, czy program sie kompiluje czy nie, zawiesza czy nie, rysuje czy nie, czy rysuje źle... uprzedzam że zwrotu "nie działa" tez na tym forum nie lubimy:)
jesli mamy odwalic robote za Ciebie to napisz w dziale Praca i za drobna oplata dosaniesz co chesz.