uses crt;

var a:array[1..200] of integer;

    i,n:byte;

    max:integer;

    f1,f2:text;

BEGIN

        assign(f1,'SN.txt');

        {$I-} reset(f1); {$I+}

        if ioresult<>0 then

        begin

                rewrite(f1);

                reset(f1);

        end;

        n:=0;

        while not eof(f1) do

        begin

                inc(n);

                read(f1,a[n]);

        end;

        close(f1);

        clrscr;

        write('Cac so nguyen co trong tep:');

        for i:=1 to n do write(a[i],' ');

        writeln;

        max:=a[1];

        for i:=2 to n do

                if a[i]>max then max:=a[i];

        write('So nguyen lon nhat trong cac so do la:',max);

        assign(f2,'MAX.txt');

        rewrite(f2);

        write(f2,max);

        close(f2);

        readln

END.

Chúc bạn học tốt!