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

type
  tstud = record
    fam: string[12];
    group: 1..7;
    geom: word;
    algeb: word;
    inf: word;
  end;
  
var
  stud: array[1..100] of tstud;
  sr: array[1..2,1..7] of real;
  sred,buf: real;
  n,i,k,j: integer;
  
begin
  write('Введите количество студентов : ');
  readln(n);
  writeln('Заполнение массива по зимней сессии');
  for i:=1 to n do
    begin
      write('Введите фамилию : ');
      readln(stud[i].fam);
      repeat
        write('Введите номер группы (1-7) : ');
        readln(stud[i].group);
      until (stud[i].group >=1) and (stud[i].group <= 7);
      repeat
        write('Введите оценку по геометрии : ');
        readln(stud[i].geom);
      until (stud[i].geom >=2) and (stud[i].geom <= 5);
      repeat
        write('Введите оценку по алгебре : ');
        readln(stud[i].algeb);
      until (stud[i].algeb >=2) and (stud[i].algeb <= 5);
      repeat
        write('Введите оценку по информатике : ');
        readln(stud[i].inf);
      until (stud[i].inf >=2) and (stud[i].inf <= 5);
    end;
  writeln;
  writeln('Фамилии студентов имеющих задолженность хотя бы по одному предмету : ');
  for i:=1 to n do
    if (stud[i].geom < 3) or (stud[i].algeb < 3) or (stud[i].inf < 3) then
      writeln('   - ',stud[i].fam);
  write('Процент студентов, сдавших все экзамены на 4 и 5 : ');
  k:=0;
  for i:=1 to n do
    if (stud[i].geom >= 4) and (stud[i].algeb >= 4) and (stud[i].inf >= 4) then k:=k+1;
  if k <> 0 then writeln(((k*100)/n):0:2,' %')
  else writeln('   - таких студентов в списке нет!');
 
  writeln('Название предмета, который был сдан лучше всего : ');
  for i:=1 to n do
    begin
      if (stud[i].geom >= stud[i].algeb) and (stud[i].geom >= stud[i].inf) then writeln('   - ',stud[i].fam,' : Геометри (',stud[i].geom,')')
      else if (stud[i].algeb >= stud[i].geom) and (stud[i].algeb >= stud[i].inf) then writeln('   - ',stud[i].fam,' : Алгебра (',stud[i].algeb,')')
      else if (stud[i].inf >= stud[i].geom) and (stud[i].inf >= stud[i].algeb) then writeln('   - ',stud[i].fam,' : Информатика (',stud[i].inf,')')
    end;
 
  for i:=1 to 7 do
    begin
      sred:=0;
      k:=0;
      for j:=1 to n do
        begin
          if stud[j].group = i then
            begin
              sred:=sred+(stud[i].inf+stud[i].algeb+stud[i].geom)/3;
              k:=k+1;
            end;
        end;
      sr[1,i]:=i;
      if k <> 0 then sr[2,i]:=(sred/k) else sr[2,i]:=0;
    end;
  for i := 1 to 7-1 do
    for j := 1 to 7-i do
      if sr[2,j] < sr[2,j+1] then
        begin
          buf:= sr[2,j];
          sr[2,j] := sr[2,j+1];
          sr[2,j+1] := buf;
          buf:= sr[1,j];
          sr[1,j] := sr[1,j+1];
          sr[1,j+1] := buf;
        end;
  write('Номера групп в порядке убывания средней успеваемости их студентов : ');
  for i := 1 to 7 do if sr[2,i] <> 0 then write(sr[1,i],' ');
  readln;
end.