Ошибка в программе.

[T@tali]

Выскакивает ошибка. Помогите пожалуйста дорешать задачу.

structure too large, error22

в этой задаче.

Type stu=record
Surname, name,gruppa,ozenka:string;
x1,x2,x3:byte;
A:real;
End;
Var
f:file of stu; friends: array [1..100] of stu;
z:stu;
i,b,d,n:integer;
begin
assign(f,'f.text');
rewrite(f);
d:=0; b:=0;
for i:=1 to 10 do
begin
writeln('surname:');
readln(friends[i].surname );
writeln('gruppa');
readln(friends[i].gruppa);
writeln('ocenki:');
readln(friends[i].ozenka);
end;
close(f);
reset(f);
while not Eof(F) do
begin
read(f,friends[n]);end;
for i:=1 to 10 do
begin
writeln('cтудент-',friends[i].surname,'-группа-',friends[i].gruppa,'-оценки-',friends[i].ozenka);
end;
close(f)
end.

[T@tali]

Подскажите пожалуйста, что это за ошибка.??????

[zumm]

а на какой сроке вылетает ошибка?

[T@tali]

ошибка была в 8 строке, разобралась о шибкой

[T@tali]

Все откомпилировалось, но не записывается в файл. подскажите пожалуйста. Что не хватает? Заранее благодарю.

[T@tali]

Вроде разобралась. Правда записи в файле вразброс появились.