Нарисовать блок-схему

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