Ghi Sửa File trong Pascal

program GhiSua;
uses crt;
type mang=array[1..200] of byte;
var
  F,F2,F3: Text;
  path: string;
  n,m,i,stt,data:byte;
  a,b:mang;
  kt:char;
begin

  clrscr;
  write('Nhap path file: ');='mao.txt';
  readln(path);
  {path:='/home/thieumao/Desktop/em.txt';}
  assign(F, path);
  rewrite(F);
  write('Nhap so phan tu: ');
  readln(n);
  writeln(F,n);
  for i:=1 to n do
    begin
      write('a[',i,']= ');
      readln(a[i]);
      write(F,a[i]:3);
    end;
  writeln('***Da ghi file xong!***');
  close(F);
  {*************SUA*FILE***************}
  assign(F2,path);
  reset(F2);
  readln(F2,m);
  for i:=1 to m do read(F2,b[i]);
  repeat
    repeat
      write('Nhap stt muon sua: '); readln(stt);
    until (stt>0) and (stt<=m);
    write('Nhap so muon thay: '); readln(data);
    b[stt]:=data;
    write('Co sua nua khong? <C/K>: '); readln(kt);
  until upcase(kt)='K';
  {for i:=1 to m do write(b[i]:2);}
  close(F2);
  assign(F3,path);
  rewrite(F3);
  writeln(F3,m);
  for i:=1 to m do write(F3,b[i]:3);
  close(F3);
end.