Помогите найти ошибки

Program stud;

uses crt;

Typetablica=record{Описание записи о каждом студенте}

name: string[15];

group: string[8];

god: integer;

vt, history, stat, math: byte;

sr_bal: real;

end;

vari, j, n :integer; a: tablica;

mas:array[1..30] of tablica; {Таблица - массивзаписей}

s_vt, s_history, s_stat, s_math: real; {Переменные для хранения средних значений по предметам}

begin

write('n='); readln(n); {Ввод количества записей}

for i:=1to n do{Вводэлементовмассивзаписей}

with mas[i] do

begin

writeln('i=',i:4);

writeln('FIO');

readln(name);

writeln('Group');

readln(group);

writeln('Year');

readln(god);

writeln('Otsenki');

readln(vt, history, stat, math);

sr_bal:=(vt+history+stat+math)/4;

end;

s_vt:=0; s_history:=0; s_stat:=0; s_math:=0;

fori:=1to n do{Вычисление среднего балла по каждому предмету}

begin

s_vt:=s_vt+mas[i].vt;

s_history:=s_history+mas[i].history;

s_stat:=s_stat+mas[i].stat;

s_math:=s_math+mas[i].math;

end;

fori:=1tondo{Упорядочение записей массива в алфавитном порядке фамилий}

for j:=1 to n-1 do

if mas[j].name> mas[j+1].name then

begin

a:=mas[j];

mas[j]:=mas[j+1];

mas[j+1]:=a;

end;

write(' ':4, 'FIO ',' ':4); {Выводрезультатов}

write(' ':2, ' GROUP ',' ':2);

write(' ':2, ' GOD ' , ' ':2);

write(' ':5, ' OTSENKI ',' ':5);

writeln('Sr/ Bal ');

for i:=1to n do

with mas[i] do

begin

write(name:7);

write(' ',group:10);

write(' ',god:10);

writeln(' ',vt:6, ' ',history:3, ' ',stat:3, ' ',math:3, ' ',sr_bal:6:2);

end;

writeln(' Sr. Bal: ', ' ', s_vt:26:1, ' ', s_history:3:1, ' ', s_stat:3:1, ' ', s_math:3:1);

end.