phat hien va sua loi cu phap cho chuong trinh: in ra man hinh tong cac so le co trong day so

Program tong_so_le;
Var N, i : byte; Tong : integer;
A: Array(1..250) of Integer ;
begin
write('Nhap gia tri cho N='); Readln(N);
write('nhap gia tri cho day so');
For i=1 to N do Readln(A[i]);
Tong :=0;
For i :=1 to N do;
If (A[i] mod 2<>0) then Tong :=Tong + A[i];
Write('Tong cac so le trong day so la: ',Dem);
Readln
End.

1) Dien vao dau cham trong bai giai: Viet chuong trinh thuc hien nhung viec sau:

a) Doc tu ban phim 1 danh sach gom:

Ho ten, mon thi thu nhat, diem mon thi thu nhat , mon thi thu hai, diem mon thi thu hai

b) Ghi vao dia voi ten tep QLHT

c) Doc du lieu tu File QLHT, tim nhung hoc sinh phai thi lai ( co it nhat mot mon khong dat ) . Dua ra so thu tu, ho ten, cac mon phai thi lai va diem tuong ung ra man hinh 

                                                                                         Bai giai

program......

Uses Crt;

 type phieudiem = record

         hten : string [25];

         Mh1 : string [10]; 

             d₁ : real;

         Mh2 : string [10];

             d₂ : real'

                end;

      Var 

      pd : phieudiem;

        f    file of phieudiem;

        n,i,t : integer;

   Begin

     clrscr;

write ( ' So phieu diem n = ' ) ;

...........................

assign (....................) ;

rewrite (..............)

            For i := 1 to n do 

                                  with pd do 

        begin

             Writeln ( ' Vao phieu diem thu ' , i );

             Write ( ' Ho va ten: ' ) ;

              Readln (...................) 

              Write (' Mon thi thu nhat : ') ;

               Read..............

                Write ( ' Diem mon thu nhat ' );

                Read.....................

                 Write ( ' Mon thi thu hai: ' ) ;

                 Readln.............................

                   Write ( ' Diem mon thu hai: ' ) ;

                     Read...............

                    Write ( f, pd ) ;

                            end;

                       close (f);

                            clrscr ; 

                      Writeln ( ' Danh sach hoc sinh thi lai : ') ;

                         Writeln;

                         assign....................

                         reset...........

                                 t : = 0 ;

                           While not eof (f) do

                         Begin

                           read ( r, pd );

                               with pd do

                                   If ( d₁ < 5 ) or ( d₂ < 5 ) then 

                                              Begin

                                                 inc (t); 

                                        Write..................

                 if d₁ < 5 then 

                              Write.......

              if d₂ < 5 then

                            Write............

                      Writeln;

                       end;

                        end;

                         close (f);

                           end.