блок-схема: как сделать?

 program indidualnoe;
 uses crt;
const nmax=10;
var f:array[1..nmax] of string;
    r:array[1..nmax,1..nmax+1] of integer;
    n,m,i,j,s,k,x:integer;
    y:string[10];
begin
repeat
write('Количество спортсменoв до ',nmax,' n=');
read(n);
until n in [1..nmax];
repeat
write('Количество видов до ',nmax,' m=');
read(m);
until m in [1..nmax];
writeln('Введите фамилии спортсменов и количество очков по видам:');
for i:=1 to n do
 begin
  writeln('Спортсмен ',i);
  write('- фамилия: ');
  read(f[i]);
  f[i]:=copy(f[i],1,10);
  s:=0;
  for j:=1 to m do
   begin
    write('- вид ',j,'=');
    read(r[i,j]);
    s:=s+r[i,j];
    r[i,m+1]:=s;
   end;
 end;
clrscr;
writeln('Результаты соревнований:');
writeln('Сумма':m*4+20);
for i:=1 to n do
 begin
  write(i:2,f[i]:11);
  for j:=1 to m do
  write(r[i,j]:4);
  writeln(r[i,m+1]:7);
 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if r[i,m+1]<r[j,m+1] then
 begin
  for k:=1 to m+1 do
   begin
    x:=r[i,k];
    r[i,k]:=r[j,k];
    r[j,k]:=x;
   end;
  y:=f[i];
  f[i]:=f[j];
  f[j]:=y;
 end;
write('Нажмите Enter для продолжения');
readln;
writeln('Итоги соревнований:');
writeln(' Фамилия  Сумма  Место');
for i:=1 to n do
writeln(f[i]:10,r[i,m+1]:5,i:5);
end.