Паскаль...Вывод оценки в файл

[ne4eHUce]

program 1;
label 1;
type y=array [1..3] of integer;
var stud:y;
i,p:integer;
begin
p:=0;
for i:=1 to 3 do
begin
1:writeln('vvedite ocenky ',i,'-ro studenta');
readln(stud[i]);
if(stud[i]<1) or (stud[i]>5) then goto 1;
if stud[i]>3 then p:=p+1;
end;
end.

Как записать чтобы выводилась информация о оценке в файл ??



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[VKorablev]

добавь в var
f:file;
потом в текст программы
assign(f,'c:\1.txt');
в конце программы
rewrite(f);
write(f,переменные оценки);
close(f);
тогда оценки сохранятся в файл 1.txt находящийся на диске С