Lập trình chuyển toàn bộ một văn bản sang chữ hoa trong Pascal

Viết chương trình chuyển một văn bản sang toàn bộ chữ hoa

Dữ liệu vào file: upcase_vb.INP là một văn bản gồm nhiều dòng mỗi dòng không quá 255 kí tự

Dữ liệu ra file: upcase_vb.OUT là văn bản đã chuyển hết sang in hoa

VD:

var s:string; i,n:integer; f1,f2:text;
begin
{----Mo mot luc ca 2 file ----}
    assign(f1,'upcase_vb.inp'); reset(f1);
    assign(f2,'upcase_vb.out'); rewrite(f2);
 {--- --------}
while not EOF(f1) do //khi chua het file thi thuc hien
begin
    readln(f1,s);
    s:=upcase(s);
writeln(f2,s);//ghi vao file sau khi xu li xong
end;
close(f1);close(f2);//dong ca hai file
end.