Поменять функцию

program funkciya;
uses graph;
var
gm,gd,x,i,y:integer;t:string;l:text;x1,y1:real;
Begin
assign(l,'malina');
rewrite(l);
x1:=0;
while x1<=2 do
begin
y1:=x1*x1-1;
writeln(l,x1,' ',y1);
x1:=x1+0.1;
end;
close(l);
reset(l);
initgraph(gd,gm,'');
setbkcolor(white);
setcolor(blue);
line(getmaxx div 2-300,15,getmaxx div 2-300,getmaxy-15);
line(15,getmaxy-130 ,getmaxx-15,getmaxy-130);
outtextxy(getmaxx-10,getmaxy-134,'x');
outtextxy(getmaxx div 2-303,4,'y');
for i:=0 to 4 do
begin
str(i,t);if i>0 then outtextxy((getmaxx div 2)+300*i-305,(getmaxy-130)-3+10,t);
if i<>0 then
 line((getmaxx div 2)+300*i,(getmaxy-130)-3,(getmaxx div 2)+300*i,(getmaxy-130)+3);
end;
setlinestyle(0,0,3);
for i:= -1 to 3 do
begin
str(i,t);if i>0 then outtextxy((getmaxx div 2)-319,getmaxy-130-110*i-3,t)
else outtextxy((getmaxx div 2)-319,getmaxy-130-110*i-3,t);
line((getmaxx div 2-300)-3,getmaxy-20-110*i,(getmaxx div 2-300)+3,getmaxy-20-110*i);
end;
moveto((getmaxx div 2)+150*-2,getmaxy-20);
 while not eof(l) do
 begin
 readln(l,x1,y1);
 lineto((getmaxx div 2-300)+round(300*x1),getmaxy-130-round(110*y1));
end;
readln;
close(l);
closegraph;
End.