Viết chương trình nhập vào 8 số nguyên rồi tìm max day so đó?

Program cau_2;

Uses crt;

Var     max, i : integer;

dayso : array[1..20] of integer;

     Begin

     Clrscr;

                so_chan:=0;

           For i := 1 to 8 do

                Begin

                       Write(‘phan tu thu  ‘,i,’ la = ‘);

                       readln(dayso[i]);

                End;

             Max:=dayso[1];

             For i := 2 to 8 do

                  Begin

                  If max<dayso[i] then max:=dayso[i];

                  End;

           Writeln(‘So lon nhat day so ‘,max);

           Readln; End.