cho em hỏi bài này em làm thế này có dúng không ạ ,mà khi em chạy chương trình thì lại báo lỗi là exitcode 205

Đề Bai:CHO DÃY SỐ NGUYÊN A1,A2,...AN,N<=1000

Ai<= 10 mũ 6 trong tệp VB:SONGUYEN.INP có cấu trúc như sau:

-dòng đầu tiên ghi số N

-dòng thứ hai ghi các giá trị ai mỗi số cách nhau 1 khoảng trống

tìm giá trị bé nhất của dãy số lưu vào tệp

program timmin;

const fi:='SONGUYEN.INP'

          fo:='SONGUYEN.OUT'

var A:array[1..1000] of longint;

   N,i:integer;

    min:integer;

    f,g:text;

begin

 assign(f,fi);

reset(f);

assign(g,fo);

 rewrite(g);

  begin 

read(f,N);

  for i:=1 to N do

  read(f,a[i]);

 min:=a[1];

 for i:'2 to N do

 if a[i]<min them min:=a[i];

  writeln(g,min);

end;

close(f);  close(g);

END.

Trong một kì thi Tin học trẻ, mỗi học sinh sẽ phải làm 3 bài thi. Với mỗi bài, nêu học sinh làm sẽ được ban giám khảo chấm và cho điểm, nếu không làm thì sẽ không tính điểm. Sau khi thi, dữ liệu điểm thi của học sinh sẽ được lưu trong một tệp văn bản và gửi về ban tổ chức. Mẫu một tệp điểm thi có dạng sau:

Quy định ghi trong tệp trên như sau:

- Mỗi dòng sẽ bắt đầu bằng số báo danh của thí sinh, tiếp theo là ba giá trị điểm tương ứng với ba bài thì.

- Điểm thi sẽ là một số tự nhiên từ 0 đến 20.

- Nếu học sinh không làm thì bài đó ghi -1.

Em có nhiệm vụ tính toán tổng só điểm thi của các bạn học sinh và đưa dữ liệu ra tệp ketqua.out là danh sách ba bạn có tổng điểm cao nhất được sắp xếp giảm dần từ trên xuống đưới. Khuôn dạng dữ liệu đưa ra bao gồm: số báo danh, các điểm thi từng bài và cuối cùng là tổng điểm cả ba bài.

Ví dụ với dữ liệu trên thì kết quả như sau:

Có 2 bài, ai làm được bài nào giúp mình với ạ, tại đang cần gấp. Cảm ơn mọi người nhiều

Bài 1: Cho đoạn chương trình sau: 

Program Vidu;

Var 

     A,B : text;

     F : integer;

Begin

     Assign ( A,'Songuyen.TXT');

     Assign ( B,'Soam.TXT');

     reset (A);

     rewrite (B);

     while not eof (A) do

     begin

            read ( A, x);

            Ifx>= 0 then

            Write ( ' can bac hai cua x la ,' sqrt ( X:5:2)

            else write ( B,x);

      end;

      close (A); close (B);

End.

Xác định ý nghĩa của các lệnh và cho biết chương trình trên làm công việc gì?

Bài 2: Cho tệp SONGUYEN.INP gồm các số nguyên (mỗi số cách nhau bởi dấu cách và không kết thúc bởi ký tự xuống dòng). Hãy đọc dữ liệu từ tệp SONGUYEN.INP và ghi vào tệp SONGUYEN.OUT tổng các số nguyên chẵn.