Составить блок схему к готовому коду

Program R; uses crt;
type tabel=record
fam: string;
cm: integer;
ci: integer;
cr: integer;
gruppa: string;
sr:real;
end;
var tab:array [1..3] of tabel;
sr:real;
i:integer;
begin clrscr;
for i:=1 to 3 do
begin
write ('введите фамилию ученика-');
readln (tab[i].fam);
write ('введите группу-');
readln (tab[i].gruppa);
write ('введите оценку по математике:');
readln (tab[i].cm);
write ('введите оценку по русскому');
readln (tab[i].cr);
write ('введите оценку по информатике');
readln (tab[i].ci);
writeln;
end;
tab[i].sr:=sr;
sr:=(tab[i].cm+tab[i].cr+tab[i].ci)/3;
for i:=1 to 3 do
begin
write (i:2);
write (tab[i].fam:11);
write (tab[i].gruppa:9);
write (tab[i].cm:7);
write (tab[i].cr:9);
write (tab[i].ci:6);
write ('    ',sr:2:2);
writeln;
end;
end.

uses crt;
type mtr=array[1..10,1..10] of real;
function sred(a:mtr;n,k:integer):real;
var i:integer;
    s:real;
begin
s:=0;
for i:=1 to n do
s:=s+a[k,i];
sred:=s/n;
end;
var a:mtr;
    n,i,j:integer;
    x:real;
begin
clrscr;
repeat
write('Введите размер массива от 2 до 10 n= ');
readln(n);
until n in [2..10];
writeln('Исходный массив');
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=9*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
writeln('Измененный массив');
for i:=1 to n do
 begin
  x:=sred(a,n,i);
  for j:=1 to n do
   begin
    if(j=i)or(j=n-i+1) then a[i,j]:=x;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
readln
end.