Nhờ mn giải giúp e 2 bài này vs ạ: Bài 1: Viết chương trình nhập vào một xâu s1. Tạo xâu s2 gồm tất cả các kí tự trong xâu s loại trừ các kí tự là chữ số. Bài 2: Thông tin vể sách trong thư viện gồm: mã sách, tên sách, số trang, tác giả. Hãy viết chương trình thực hiện các công việc sau: a) Nhập vào thông tin của 50 cuốn sách từ bàn phím. b) Đưa ra màn hình tổng số trang của 50 cuốn sách đó.

`1)`
uses crt;
var s1,s2:string;
i:byte;
begin
clrscr;
readln(s1);
for i:=1 to length(s1) do
begin
if not((s1[i]>='0') and (s1[i]<='9')) then s2:=s2+s1[i];
end;
writeln(s2);
readln;
end.

`2)`

uses crt;
var ma,ten,tg:string;
i:byte;
trang:word;
tongsotrang:longword;
begin
clrscr;
for i:=1 to 50 do
begin
readln(ma);
readln(ten);
readln(trang);
readln(tg);
tongsotrang:=tongsotrang+trang;
end;
writeln(tongsotrang);
readln;
end.

Bài 1:
program bai1;
uses crt;
var s1,s2:string;
i:byte;
begin
        clrscr;
        readln(s1);
        for i:=1 to length(s1) do
        begin
                if not((s1[i]>='0') and (s1[i]<='9')) then s2:=s2+s1[i];
        end;
        writeln(s2);
        readln;
end.

bài 2:

program bai2;
uses crt;
var ma,ten,tg:string;
i:byte;
trang:word;
tongsotrang:longword;
begin
        clrscr;
        for i:=1 to 50 do
        begin
                readln(ma);
                readln(ten);
                readln(trang);
                readln(tg);
                tongsotrang:=tongsotrang+trang;
        end;
        writeln(tongsotrang);
        readln;
end.