Журнал успеваемости студенческой группы (переделать с Паскаля на С++) - C++ - Ответ 3621147

Program Sozd_Fil;
uses crt;
Const  M=5;
 Type  Stud=Record
    Fam, Im : String[10];
    NumZ : LongInt;
    Otm : Array[1..M] Of Integer;
  End;
Var
 Vedom: array [1..10] Of Stud;
 A : String;
 j,i,n,f: Integer;
 sr,kol,kach:real;
Begin
 clrscr;
 Writeln('введите количество студентов');
 Readln(n);
 Writeln ('введите сведения o каждом студенте');
 For i:=1 to n do
  Begin
    With vedom[i] do
      Begin
         Write('фамилия:');
         ReadLn(Fam);
         Write('имя:');
         ReadLn(Im);
         Write('номер зачетки:');
         ReadLn(Numz);
         WriteLn('введите оценки пo oднoй');
         For J := 1 to 5 do
           Begin
             WriteLn('введите',J,'-ю oценку');
             ReadLn(Otm[j]);
           End;
          End;
       End;
  writeln('N':3,'fam':10,'name':10,'N':5,' ':5,'1':3,'2':3,'3':3,'4':3,'5':3,'sr':10);
  writeln('------------------------------------------------------------------');
   For i:=1 to n do
  Begin
    With vedom[i] do
      Begin
         Write(i:3,Fam:10,Im:10,Numz:5,' ':5); sr:=0;
         For J := 1 to 5 do begin Write(Otm[j]:3); sr:=sr+otm[j] end;
         writeln(SR/5:10:2)
      end;
  end;
  repeat
  write('Hotite ispravit? (d/n)'); readln(a);
  if (a='d') or (a='D') then begin
     write(‘введите номер зачетки: '); readln(i);
     write(‘номер оценки: '); readln(j);
     write('Otm(',j,')='); readln(vedom[i].otm[j]) end
  until (a='n') or (a='N');
  writeln('N':3,'fam':10,'name':8,'N':5,' ':5,'1':3,'2':3,'3':3,'4':3,'5':3,'sr':10);
  writeln('-----------------------------------------------------------------');
  For i:=1 to n do
  Begin
    With vedom[i] do
      Begin
         Write(i:3,Fam:10,Im:10,Numz:5,' ':5); sr:=0;
         For J := 1 to 5 do begin
              Write(Otm[j]:3); sr:=sr+otm[j];end;
         writeln(sr/5:10:2)
      end;end;
  For i:=1 to n do
  Begin
    Kol:=0; Kach:=0;
    With vedom[i] do
      Begin
         F:=0;
         For J := 1 to 5 do begin
             If Otm[j]<=2 then f:=1;
             if otm[j]>=4 then Kach:=Kach+1 end;
         If f=0 then kol:=kol+1;
       End;
   End;
     writeln('Кол-во успевающих=',kol/n*100:2:2,'%');
     writeln('Качество =',kach/(5*n)*100:2:2,'%');
   ReadLn;
End.