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

[T@tali]

Помогите пожалуйста найти ошибку. Не создается файл. И соответственно нет вывода данных. Задание такое:

Напишите программу в ИСР Pascal для создания массива из 10 элементов типа запись (ввод полей осуществляется с клавиатуры). Запись для каждого студента должна содержать следующие поля: номер по порядку, фамилия, имя, группа, оценка. Эти данные нужно программным образом записать в текстовый файл, а затем осуществить чтение и форматный вывод информации из этого файла на экран.

Type stu=record
Surname, name,gruppa:string;
x1,x2,x3:byte;
A:real;
End;
Var z:stu;
i,b,d:integer;
begin
d:=0; b:=0;
for i:=1 to 10 do
begin
writeln(‘Порядковый номер:’);
write(‘surname:’);
readln(z.name);
write(‘gruppa’);
readln(z.gruppa);
write(‘ocenki:’);
readln(z.x1,z.x2,z,x3);
z.a:=(z.x1+z.x2+z.x3)/3;
if z.a=5 then b:=b+1 else
if z.a>=4 then d:=d+1;
readln;
end;
end.

[_-Re@l-_]

чтобы создать файл, нужно написать:

var f:text;
begin
       assign(f,'директория ');
       rewrite(f);
       write(f,'переменные или текст');

[ROMA2PVT]

да ток для начала массив надо создать.

[T@tali]

а можно подробней. Куда этот кусок кода вставить. И для чего нужен массив?

[T@tali]

такие ошибки выходят. В чем у меня проблемма не подскажете?


Compiling '5_2_5.D98165B6'...
[Pascal Error] 5_2_5.D98165B6(1): E202 identifier (name) expected
[Pascal Error] 5_2_5.D98165B6(4): E415 type name or integer/char constant expected, 'byte' found
[Pascal Error] 5_2_5.D98165B6(7): E415 type name or integer/char constant expected, 'text' found
[Pascal Error] 5_2_5.D98165B6(10): E428 identifier 'assign' is not procedure, function, variable or unit name
Done - 4 error(s), 0 warning(s)

[ilyas22]

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.

[ilyas22]

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.

[ROMA2PVT]

ilyas22 Эти данные нужно программным образом записать в текстовый файлЕсли имеется ввиду именно текстовые файлы а не типизированные.

[T@tali]

Спасибо за исправленный код. Скажите пожалуйста, это у меня с компилятором что то да? программа должна работать, а ошибки выскакивают. Кто нибудь может проверить на своем? пожалуйста сообщите. Буду качать тогда новый.

[T@tali]

Советы будут? Я не пойму либо паскаль у меня слетел либо в проге ошибка. подскажите пожалуйста.