Построить в графическом режиме график зависимости количества решений от n

Program Variant_21;
uses crt;
type
  rec=Record
  number: integer;
  count: integer;
end;
 
var
 p   : array [0..5] of rec;
 n,i,z : integer;
 x,y,count : integer;
 
function Podschet (n: integer) : integer;
var
  x,y,count : integer;
begin
      count:=0;
      x:=0;
      y:=0;
       while (sqr(x)+sqr(y))<n do
       begin
           while (sqr(x)+sqr(y))<n do
             begin
               if (sqr(x)+sqr(y))<n then
               count:=count+1;
               y:=y+1;
             end;
           y:=0;
           x:=x+1;
       end;
      Podschet:=count;
end;
begin
   clrscr;
   Writeln ('‚ўҐ¤ЁвҐ n');
   Readln (n);
   for i:=0 to 5 do
     z:= Podschet(n);
     p[i].number:=n;
     p[i].count:= Podschet(n);
     writeln('Number--',n,' Count--',p[i].count);
  readln;
end.

Program Variant_21;
uses crt,graph;
function Podschet (k:integer):integer;
var
  x,y,count:integer;
begin
count:=0;
for x:=1 to round(sqrt(k)) do
for y:=1 to round(sqrt(k)) do
if (sqr(x)+sqr(y))<k then count:=count+1;
Podschet:=count;
end;
var n,i,max,gd,gm,x0,y0,w,h:integer;
    a:array[1..100] of integer;
    mx,my:real;
    s:string;
begin
clrscr;
Write('Vvedite n=');Readln(n);
max:=0;
for i:=1 to n do
 begin
  a[i]:=Podschet(i);
  if a[i]>max then max:=a[i];
  write(a[i],' ');
 end;
writeln;
write('Press Enter...');
readln;
gd:=0;
initgraph(gd,gm,'');
{начало координат}
x0:=30;
y0:=getmaxY-40;
{ширина и высота области построения графика}
w:=getmaxX-2*x0;
h:=y0-20;
{экранный масштаб по осям Х и У}
mx:=w/(n-1);
my:=h/(max+1);
{ось Х}
line(x0,y0,x0+w+10,y0);
outtextXY(x0+w+10,y0-15,'N');
for i:=0 to n-1 do
 begin
  line(x0+round(i*mx),y0+3,x0+round(i*mx),y0-3);
  str(i+1,s);
  outtextXY(x0+round(i*mx),y0+10,s);
 end;
{ось У}
line(x0,y0-h-20,x0,y0);
outtextXY(x0-15,y0-h-20,'K');
for i:=0 to max+1 do
 begin
  line(x0-3,y0-round((i+1)*my),x0+3,y0-round((i+1)*my));
  str(i,s);
  outtextXY(x0-15,y0-round((i)*my),s);
 end;
{график}
moveto(x0,y0);
for i:=0 to n-1 do
 begin
  setcolor(12);
  lineto(x0+round(i*mx),y0-round(a[i+1]*my));
  setcolor(10);
  circle(x0+round(i*mx),y0-round(a[i+1]*my),2);
 end;
readln;
end.