Защита РГЗ

[Masya1705]

Помогите пожалуйста объяснить задачу.
завтра защита, а я никак не могу разобраться.Просто спрашивают про каждую буковку

Program grafik;
uses graph, crt;
var
 gd,gm,n,i:integer;
 step,a,b,mash:real;
 col,cur:byte;
 c:char;

procedure osi (a,b,mash:real);      
var
  xos:integer;      
  st:string;
 begin
 setcolor(8);       
line(0,round(getmaxy/2),getmaxx,round(getmaxy/2)); 
 outtextxy(getmaxx-10,round(getmaxy/2)-10,'X');     
for i:=0 to round(b-a) do
  begin
   str(round(a+i),st);                                
   outtextxy(round(i*mash),round(getmaxy/2)+5,st);  
   line(round(i*mash),round(getmaxy/2)-2,round(i*mash),round(getmaxy/2)+2);  
end;

  if a*b<0 then xos:=round(-a*mash) else xos:=round(getmaxx/2);
  line(xos,0,xos,getmaxy);                                      
  outtextxy(xos-10,3,'Y');     
  for i:=1 to round((getmaxy/mash)/2) do
   begin
    str(round(i),st);
    outtextxy(xos+5,round(getmaxy/2+i*mash),'-'+st);                 
    outtextxy(xos+5,round(getmaxy/2-i*mash),st);
    line(xos-2,round(getmaxy/2+i*mash),xos,round(getmaxy/2+i*mash)); 
    line(xos-2,round(getmaxy/2-i*mash),xos+2,round(getmaxy/2-i*mash));
   end;
 end;

procedure podpis (D:real;col:byte);  
 var
  st:string;
 begin
  str(d:2:2,st);
  setfillstyle(1,col);
  bar(2,cur,7,cur+5);
  setcolor(8);
  outtextxy(10,cur,st+'*(x^2-1)/(x^4+1)');
  cur:=cur+10;
 end;

function st(as:real;bs:byte):real; 
 var
  i:byte;
  r:real;
 begin
  r:=1;
  for i:=1 to bs do
   r:=r*as;
  st:=r;
 end;

procedure draw(a,b,mash,step,D:real;col:byte);       
 var
  x1,y1:real;
 begin
  setcolor(col);                              
 x1:=a-step;

  for i:=1 to n do
   begin
    x1:=x1+step;    
    y1:=-D*(st(x1,2)-1)/(st(x1,4)+1);           
    putpixel(round((x1-a)*mash),round(y1*mash+getmaxy/2),col);
   end;
  podpis(D,col);
 end;

begin
 write('vvedite tochnost(n), a, b ');
 readln(n,a,b);          
 write(‘zadat masshtab vrychnyy?’ (Y/N)');
 readln(c);

 if c='y' then
  begin
   writeln;
   write(‘mashtab= ');
   readln(mash);
   step:=abs(b-a)/n;             
   initgraph(gd,gm,'..\bgi'); 
  end
 else
  begin
   initgraph(gd,gm,'..\bgi'); 
   mash:=getmaxx/abs(b-a);      
   step:=abs(b-a)/n;             
  end;

 osi(a,b,mash);             
draw(a,b,mash,step,-1,1);  
draw(a,b,mash,step,0.5,2);
 draw(a,b,mash,step,1,4);
 draw(a,b,mash,step,1.5,5);

 repeat until keypressed;   

 closegraph;                
end.

[Stilet]

write(‘zadat masshtab vrychnyy?’ (Y/N)');

Это что за...
так нужно: write('zadat masshtab vrychnyy? (Y/N)');

Насчет пояснений:
procedure osi (a,b,mash:real); судя по всему строит координатную сетку, с возможностью масштабирования.
procedure podpis (D:real;col:byte); создает подобие марок-подписей для графика в колонку.
function st(as:real;bs:byte):real; возведение в степень. Корявое, вместо него лучше использовать стандартный финт: :=exp(bs*ln(as))
procedure draw(a,b,mash,step,D:real;col:byte) ; - собственно отрисовывает все вызывая выше описанные процедуры.