nhập vào 2 xâu, xoá kí tự thứ 4. ghi xâu vừa xoá vào tệp KQ.TXT

Const Fo='KQ.OUT';
Var g: text;
    St: String;
Begin
        Readln(St);
        Delete(St,4,1);
        Assign(g,Fo); Rewrite(g);
        Write(g,St);
        Close(g);
End.

----

Yêu moazzzz :*

Mèo méo meo mèo meo ~

program bai_giai;
uses crt;
var f:text
    s1,s2:string;
begin
    clrscr;
    Assign(f,'KQ.TXT');  rewrite(f);
    readln(s1); readln(s2);
    delete(s1,4,1);  delete(s2,4,1);
    writeln(f,s1); writeln(f,s2);
    close(f);
end.

Trong đó delete(st,m,n) là xóa trong xâu st tại vị trí m xóa n kí tự