Giup em vs a , cần gấp PASCAL

Bạn test thử nha. Mình mới viết mà chưa chạy

program chanLe;
var
  fi, fo: text;
  n: integer;
  a: array[1..1000] of integer;
  i, j, dem, b: integer;

procedure doiCho(var x, y: integer);  
var
  temp: integer;
begin
  temp := x;
  x := y;
  y := temp;
end;

begin
  assign(fi, 'DAYSO.INP');
  reset(fi);
  readln(fi, n);
  for i := 1 to n do
    read(fi, a[i]);
  close(fi);
   
  dem := 0;
  for i := 1 to n do
    if (i mod 2 <> 0) and (a[i] mod 2 = 0) or
       (i mod 2 = 0) and (a[i] mod 2 <> 0) then
         inc(dem);
         
  if dem mod 2 <> 0 then
    dem := -1;
     
  assign(fo, 'DAYSO.OUT');
  rewrite(fo);
  b := round(dem/2);
  writeln(fo, b);
   
  if dem > 0 then 
    for i := 1 to n do
      if (i mod 2 <> 0) and (a[i] mod 2 = 0) or
         (i mod 2 = 0) and (a[i] mod 2 <> 0) then
        for j := i+1 to n do
          if (j mod 2 <> 0) and (a[j] mod 2 = 0) or 
             (j mod 2 = 0) and (a[j] mod 2 <> 0) then begin
            doiCho(a[i], a[j]);
            writeln(fo, i, ' ', j);
            break;
          end;
              
  close(fo);
end.