недобитая программа

[bagration12]

Условие: База данных студентов содержит ФИО и средние баллы за 5 сессий. Написать программу, осуществляющую вычисление среднего балла каждого студента за все обучение и распечатывающую записи о студентах по трем категориям. Первая категория - средний балл за все обучение >= 4.6
Вторая >= 3.6 , но меньше 4.6.Третья - все остальные. Базу данных задать самостоятельно (20 записей).
--------------------------------------------------------------------------

program lab_3;

uses crt;
type zap=record
srb:array[1..20] of real;
kat1,kat2,kat3:byte;
fam:string[15];
name:string[10];
ball:array[1..5] of integer;
end;
var
kat:array[1..3,1..20] of zap;
a:array[1..20] of zap;
inp,out:text;
j,i:integer;
srb:=0;
for i:=1 to 20 do
for j:=1 to 5 do srb+a.ball[j];
kat1:=1;
kat2:=1;
kat3:=1;
if srb>=4.6 then
begin
clrscr;
assign(inp,'I\lab3.txt');
reset(inp);
assign(out,I\lab34.txt');
rewrite(out);
kat[1,kat1]:=a;
kat1:=kat1+1;
end;
else
if srb<3.6 then
begin
kat[3,kat3]:=a;
kat3:=kat3+1;
end
else
begin
kat[2,kat2]:=a;
kat2:=kat2+1;
end;
for i:=1 to 3 do
begin
case i of
1:begin
writeln(out,'kategoria 1:');
for j:=1 to kat 1 do writeln (out,a[j].fam+''+a[j].name);
end;
2:begin
writeln (out,'kategoria 2:');
for j:=1 to kat2 do writeln(out,a[j].fam+''+a[j].name);
end;
3:begin
writeln(out,'kategoria 3:');
for j:=1 to kat3 do writeln(out,a[j].fam+''+a[j].name);
end;
end;
end;
close(out);
close(inp);
readkey;
end.

-------------------------
проблема :при компиляции подчеркивает srb:=0; и пишет, ERROR 86: ":" expected; (отсутствует двоеточие)
закопался с ней...

[Stilet]

var
...
j,i:integer;
srb:=0;

И? Книги читать то не в моде? Где begin?