программа-переделать - Pascal - Ответ 1112863

Program Pascal;
Uses crt;
Const fname='LabRab2.pas';
Type st=record
fam:string;
im:string;
ot:string;
god_r:integer;
god_ok_shk:integer;
 
obshejitie:string;
attestat_mat:integer;
attestat_fiz:integer;
attestat_ist:integer;
 
exam_mat:integer;
exam_fiz:integer;
exam_ist:integer;
end;
Var t:array[1..3] of st;
i,ch,j:integer;
h: file of st;
 
 
begin
 
write('vvedite kol-vo abiturientov: '); readln(ch);
 
 
for i:=1 to 2 do begin
writeln('svedeniya o ' ,i,' studente');
write('familiya',i,'-go studenta : '); readln(t[i].fam);
write('imya',i,'go studenta : '); readln(t[i].im);
write('otchestvo',i,'go studenta: '); readln(t[i].ot);
write('god rojdeniya',i,'go studentaя: '); readln(t[i].god_r);
write('god okonchaniya shkoli ',i,'go studentaя: '); readln(t[i].god_ok_shk);
 
write('nujdaetsya v obshejitie ',i,' studentя: '); readln(t[i].obshejitie);
 
writeln('-----ATTESTAT----- ');
write('ocenka po matematike: ');  readln(t[i].attestat_mat);
write('ocenka po fizike: ');      readln(t[i].attestat_fiz);
write('ocenka po istorii: ');     readln(t[i].attestat_ist);
 
writeln('------EXAMENI------ ');
 
write('ocenka po matematike: ');  readln(t[i].exam_mat);
write('ocenka po fizike: ');      readln(t[i].exam_fiz);
write('ocenka po istorii: ');     readln(t[i].exam_ist);
 
end;
writeln('-------------------------------');
writeln('svedeniya o studentah: ');
 
for i:=1 to 2 do
 
writeln('fio 1-go studenta : ', t[1].fam, t[1].im, t[1].ot);
writeln('god rojdeniya 1-go studenta :', t[1].god_r);
writeln('nujdaetsya li 1 student v obshejitii :',t[1].obshejitie);
writeln('ocenki 1-go studenta :');
 
writeln('matematika: ',t[1].exam_mat);
 
writeln('fizika: ',t[1].exam_fiz);
 
writeln('istoriya: ',t[1].exam_ist);
 
writeln;
 
writeln('fio 2-go studenta :', t[2].fam, t[2].im, t[2].ot);
writeln('god rojdeniya 2-go studenta :', t[2].god_r);
writeln('nujdaetsya li 2 student v obshejitii :',t[2].obshejitie);
writeln('ocenki 2-go studenta :');
 
writeln('matematika: ',t[2].exam_mat);
 
writeln('fizika: ',t[2].exam_fiz);
 
writeln('istoriya: ',t[2].exam_ist);
 
writeln;
Assign (h,fname);
{$I-}
reset(h);
If Ioresult<>0 then rewrite(h);
{$I+}
for i:=1 to ch do write(h,t[i]);
 
close(h);
writeln('dannie zapisani v fail ',fname);
readln;
 
end.