Построить блок-схемы основной программы и подпрограмм по коду

type line=record
          a,b,c,r:real;
          end;
var m,p:array[1..100] of line;
    n,i,j,k:byte;
    x:line;
begin
repeat
write('Количество линий до 100 n=');
readln(n);
until n in [1..100];
writeln('Введите коэффициенты a,b,c уравнений прямых, a,b одновременно не равны 0:');
for i:=1 to n do
  begin
   writeln('Прямая ',i);
   repeat
   write(' a=');readln(m[i].a);
   write(' b=');readln(m[i].b);
   write(' c=');readln(m[i].c);
   until(m[i].a<>0)or(m[i].b<>0);
  end;
writeln('Коэффициенты:');
writeln(' ','a':5,'b':5,'c':5);
for i:=1 to n do
writeln(i:2,'-',m[i].a:5:1,m[i].b:5:1,m[i].c:5:1);
writeln;
writeln('Прямые, параллельные оси Y:');
k:=0;
for i:=1 to n do
if m[i].b=0 then
  begin
   k:=k+1;
   p[k]:=m[i];
  end;
if k=0 then write('Таких прямых нет')
else
 begin
  writeln(' ','a':5,'b':5,'c':5,'r':5);
  for i:=1 to k do
   begin
    p[i].r:=abs(-p[i].c/p[i].a);
    writeln(i:2,'-',p[i].a:5:1,p[i].b:5:1,p[i].c:5:1,p[i].r:5:1);
   end;
  for i:=1 to k-1 do
  for j:=i+1 to k do
  if p[i].r<p[j].r then
   begin
    x:=p[i];
    p[i]:=p[j];
    p[j]:=x;
   end;
  writeln('Линии в порядке убывания расстояний от оси Y:');
  for i:=1 to k do
  writeln(i:2,'-',p[i].a:5:1,p[i].b:5:1,p[i].c:5:1,p[i].r:5:1);
 end;
end.