Вершины

[Alina_Honey]

Проблема в том, что бы нарисовать вершины по кругу. Вершин может быть от 5 до 125, и мне нужно что бы смотря на их количество программа рисовала их по кругу....
Подскажите как это сделать. Вот текст моей программы:

Uses CRT,graph;

var
 A: array [1..125, 1..125] of longint;
input:text;
i,j,k,l,r,x,y:integer;
grdriver,grmode:integer;
Begin
GrDriver:=Detect;
InitGraph(GrDriver,GrMode, 'D:\pascal\BGI');
Clrscr;
assign(input,'matr.txt');
reset(input);
readln(input,k);
writeln('Matrica smejnosti A:');
for i:=1 to k do
    begin
      for j:=1 to k do
          begin
             read(input,A[i,j]);
             write(A[i,j]:6);
          end;
      writeln;
    end;
close(input);
x:=1;
y:=1;

for i:=1 to k do
circle(round(x+cos(2*Pi*i/k)*r),round(y+sin(2*Pi*i/k)*r),5);
readln;
End.