Здравейте,

Имаме да правим Курсова Задача по ПИК на C++
Намерих си код за задачата, но ми изкарва 2 грешки
Ето го целия код

// ime.cpp : Defines the entry point for the console application.
//

#include "stdafx.h"
#include <windows.h>

int _tmain(int argc, _TCHAR* argv[])
{
return 0;
}


{
TipStudent=record
ime:string[20];
egn:string[10];
facnom:string[6]
srys: real;
ocenki:array[1..10] of byte;
end;


var i,j,brstud,s:byte
broi:integer;
masstud:array[1..25] of tipstudent;
//vavezda dannite za stydenta
procedure readrec(var student:tipstudent);
var i:byte;
begin
with student do
begin
write("Vavedete imeto:"); readln(ime);
write("Vavedete EGN:"); readln(egn);
write("Vavedete Fac nomer:"); readln(facnom);
writeln("Vavedete 10-te ocenki:");
for i:=1 to 10 do
begin
write(Po",i,'-a disciplina:");
readln(ocenki[i]);
end;



//izvezda dannite za stydenta
procedure writelice(var student:tipstudent);
var i:byte;
begin
with student do
begin
writeln("Ime:",ime);
writeln("EGN:",egn);
writeln("Fac nom:",facnom);
writeln("Ocenki:");
for i:=1 to 10 do write(ocenki[i],',');writeln;
Writeln("Sreden yspeh:", srys:2:2);

end;
end;


//iz4islqva sredniq yspeh
procedure sry(var student:tipstudent);
begin
with student do
begin
s:=0;
for j:=1 to 10 do s:=s+ocenki[j];
srys:=s/10;
end;
writeln;
end;


//namira broq na stydentite s yspeh mezdy 3.50 i 5.50
procedure yspeh(var student:tipstudent);
begin

with student do
begin

if (srys>=3.50)and(srys<=5.50) then
begin
broi:=broi+1;
end;

end;

end;


Begin
Broi:=0;
write("Zadaite broq na stydentite:");
readln(brstud);
for i:=1 to brstud do readrec(masstud[i]);
for i:=1 to brstud do sry[masstud[i]);

for i:=1 to brstud do
begin
writelice(masstud[i];
end;

for i:=1 to brstud do
begin
yspeh(masstud[i]);
end;
writeln("Broq na stydentite s sreden yspeh mezdy 3.50 i 5.50 e :",broi);

readln;
end.

Изкарва ми 2 грешки:
1-вата грешка е най отгоре в името
2-рата грешка е на скобата { ( 3-тата от горе на долу)

Може ли да ми помогнете за да работи програмата?