Codigo funte de un programa

1) En una matriz se tiene la información de una sección de 37 estudiantes los cuales presentaron 9 evaluaciones, se desea diseñar un programa que permita generar un listado con la información de elnombre, cedula, notas del estudiante; y el promedio y desviación estándar de cada evaluación y de la nota definitiva, se debe señalar si el estudiante aprobó o no.

program uno;
uses crt;
typenotas= array [1..37,1..9] of real;
vector= array [1..37] of string;
var
prome: array [1..9] of real;
prom: array [1..37] of real;
desv: array [1..9] of real;
nom, ced,calif : vector;
nota : notas;
promedi, desvi, sum : real;
i,j : integer;
BEGIN
clrscr;
for i := 1 to 37 do
begin
writeln(' introduzca nombre: ');readln(nom[i]);
writeln(' introduzca cedula: ');
readln(ced[i]);
for j := 1 to 9 do
begin
writeln(' introdizca nota ',j,':');
readln(nota[i,j]);end;
end;

for i := 1 to 37 do
begin
sum:=0;
for j := 1 to 9 do
begin
sum:= sum + nota[i,j];
if j = 9 then
prom[i]:= sum/9;
end;
end;for i := 1 to 9 do
begin
if (prom[i] >= 6) then
calif[i]:= 'Aprobado'
else
calif[i]:= 'Reprobado';
end;

for j := 1 to 9 do
begin
sum:=0;for i := 1 to 37 do
begin
sum:= sum+ nota[i,j];
if (i = 37) then
prome[j]:= sum/37;
end;
end;

for i := 1 to 9 do
beginsum:=0;
for j:= 1 to 37 do
begin
sum:= sum + sqr(nota[i,j] - prome[j]);
if j = 37 then
desv[j]:= sqrt (sum/37);
end;
end;sum:=0;

for i := 1 to 37 do
sum:= sum + prom[i];
promedi:= sum/37;

sum:=0;

for i := 1 to 37 do
sum:= sum + sqr(prom[i] - promedi);
desvi:= sqrt(sum/37);...