Нарисуйте пожалуйста алгоритм в виде блок-схем для программы которая находится внутри!

Program Pr_5;
uses crt;
type
point=record
x,y:real;
end;
mas=array[1..100] of point;
function Rasst(a,b:point):real;
begin
Rasst:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
procedure Max(m:mas;n:byte);
var i,j,imx,jmx:byte;
mx:real;
begin
mx:=0;imx:=1;jmx:=1;
for i:=1 to n-1 do
for j:=i+1 to n do
if Rasst(m,m[j])>mx then
begin
mx:=Rasst(m,m[j]);
imx:=i;
jmx:=j;
end;
write('Максимальное расстояние между точками ',imx,' и ',jmx,' =',mx:0:1);
end;
var a:mas;
n,i,j:integer;
begin
randomize;
write('Количество точек (нормально до 13) = ');
readln(n);
writeln('Введите координаты точек: ');
for i:=1 to n do
begin
writeln('Точка ',i);
write('x=');readln(a.x);
write('y=');readln(a.y);
end;
write('Нoмер точки ');
for i:=1 to n do write(i:5);
writeln;
write('координата Х');
for i:=1 to n do write(a.x:5:1);
writeln;
write('координата Y');
for i:=1 to n do write(a.y:5:1);
writeln;
writeln;
Max(a,n);
readln
end.