Помогите пожалуйста с блок-схемой

[Jeka14]

type
zap = record
fio: string[40];
Otmetka: array[1..5] of Byte;
end;
zap2 = record
absolut: real;
kacestvo: real;
predmet: string;
end;
var
s: array[1..20] of zap;
v: array[1..20] of zap2;
i, j, n: integer;
UspevAbs, UspevKach : real;
predmet: array[1..5] of string[15];
begin
write ('Введите названия предметов ');
for i:= 1 to 5 do
begin
writeln('введите ',i,'-й предмет: ');
readLn(predmet[i]);
end;
write('Введите количество строк - ');
readln(n);
for i := 1 to n do
begin
write('ФИО - ');
repeat
readln(s[i].fio);
if (length(s[i].fio) > 32) then writeln('ФИО должно быть не больше 32 символов!');
if (length(s[i].fio) < 1) then writeln('ФИО должно быть не пустой!');
until (length(s[i].fio)>=1) and (length(s[i].fio) <= 32);
for j:= 1 to 5 do
begin
repeat
write('введите оценку ',s[i].fio,' по предмету ',predmet[j],' ');
readln(s[i].Otmetka[j]);
if not ((s[i].Otmetka[j] >= 1) and (s[i].Otmetka[j] <= 5))
then writeln('Ошибка. Оценка должна быть 1,2,3,4 или 5');
until (s[i].Otmetka[j] >= 1) and (s[i].Otmetka[j] <= 5);
end;
end;
writeln('┌───────────────────────── ──────────┬──────────────────────── ─────┐');
writeln('│ │ Оценка по предмету │');
writeln('│ ФИО студента ├─────┬─────┬─────┬─────┬───── ┤');
writeln('│ │ 1 │ 2 │ 3 │ 4 │ 5 │');
writeln('├──┬────────────────────── ──────────┼─────┼─────┼─────┼─────┼ ─────┤');
for i := 1 to n do
begin
write('│',i:2 , '│', s[i].fio:32, '│');
for j:=1 to 5 do Write( ' ',s[i].Otmetka[j]:3, ' │');
WriteLn;
writeln('├──┼────────────────────── ──────────┼─────┼─────┼─────┼─────┼ ─────┤');
end;
writeln('└──┴────────────────────── ──────────┴─────┴─────┴─────┴─────┴ ─────┘');
writeln('┌───────────────────────── ──────────┬──────────────────────── ─────┐');
writeln('│ │ Успеваемость % │');
writeln('│ Наименование предмета ├──────────────┬────────────── ┤');
writeln('│ │ абсолютная │ качественная │');
writeln('├──┬────────────────────── ──────────┼──────────────┼───────── ─────┤');
for j:=1 to 5 do begin
UspevAbs := 0.0; UspevKach := 0.0;
for i := 1 to n do begin
if (s[i].Otmetka[j]=3) or (s[i].Otmetka[j]=4)
or (s[i].Otmetka[j]=5) then UspevAbs := UspevAbs + 1;
if (s[i].Otmetka[j]=4) or (s[i].Otmetka[j]=5) then UspevKach := UspevKach + 1;
end;
v[i].predmet := predmet[j];
UspevAbs := UspevAbs * 100 / n;
v[i].absolut:=UspevAbs;
UspevKach := UspevKach * 100 / n;
v[i].kacestvo := UspevKach;
writeln('│', j:2 , '│', v[i].predmet:32, '│ ', v[i].absolut:12:1, ' │ ', v[i].kacestvo:12:1, ' │');
writeln('├──┼────────────────────── ──────────┼──────────────┼───────── ─────┤');
end;
writeln('└──┴────────────────────── ──────────┴──────────────┴───────── ─────┘');
end.

[Alex11223]

Вряд ли кто-то будет бесплатно рисовать за вас блок-схему.

[Sciv]

Вряд ли кто-то будет бесплатно рисовать за вас блок-схему.

Ага, да ещё по "прекрасно" отформатированному коду.