Bài tập về chương trình con giúp em vs ạ!!!

[hieu.mua]

ở đây có mấy bài toán về chương trình con các bạn giúp mình với
1) Viết chương trình nhập vào 1 mảng 2 chiều A[1..m, 1..n] gồm các số nguyên dương và cho biết trong đó có bao nhiêu số nguyên tố.
Yêu cầu:
- Viết thủ tục nhập mảng từ tệp văn bản MANG.INP
- Viết hàm NGTO kiểm tra 1 số có là số nguyên tố hay không
- Viết thủ tục in ra kết quả là số các số nguyên tố trong mảng ra tệp MANG.OUT
2) Viết chương trình thực hiện tính tổng, hiệu của hai số nguyên X, Y biết rằng mỗi số có thể có tới hàng trăm chữ số.
Yêu cầu:
- Viết thủ tục nhập 2 số X, Y từ tệp văn bản BIGNUM.INP (X>=Y), mỗi số viết trên một dòng, các chữ số viết liền nhau không chứa dấu cách
- Viết 2 thủ tục TONG và HIEU để tính tổng và hiệu của X với Y
- Viết thủ tục in ra số T và H là giá trị tổng và hiệu của 2 số X và Y ra tệp BIGNUM.OUT.

[chuinhacau]

bài 2 dùng chuỗi, bài 1 thì đơn giản rồi @@

[pascalmen_9xpro]

bài 1 thi đơn gian còn bài hai thì có thể làn như sau
nếu có sai thì bạn đường cười nhé .mình mới vào diển đàn này thôi
program tonghieu;
const f1='BIGNUM.inp';
fo='BIGNUM.out';
var a,b,t,h:integer;
f:text;
procedure doc;
begin
assign(f,f1);
reset(f);
readln(f,a);
readln(f,b);
close(f);
procedure xuli;
begin
t:=a+b;
h:=a-b;
assign(f,fo);
rewrite(f);
writeln(f,'tong la ',t);
writeln(f,'hieu la ',h);
close(f);
end;
BEGIN
doc;
xuli;
end.

[chuinhacau]

số đó chỉ là số nhỏ vs dữ liệu lớn thì phải dùng chuỗi bạn ạ )
lúc đầu bạn so sánh 2 số số nào nhỏ hơn thì thêm 0 ở đằng trước
rồi dùng vòng for chạy ngược từ dưới lên dùng val ra cộng từng cái 1 như quy tắc cộng cơ bản á

[hieu.mua]

bài 1 thi đơn gian còn bài hai thì có thể làn như sau
nếu có sai thì bạn đường cười nhé .mình mới vào diển đàn này thôi
program tonghieu;
const f1='BIGNUM.inp';
fo='BIGNUM.out';
var a,b,t,h:integer;
f:text;
procedure doc;
begin
assign(f,f1);
reset(f);
readln(f,a);
readln(f,b);
close(f);
procedure xuli;
begin
t:=a+b;
h:=a-b;
assign(f,fo);
rewrite(f);
writeln(f,'tong la ',t);
writeln(f,'hieu la ',h);
close(f);
end;
BEGIN
doc;
xuli;
end.

không chạy đc bạn ạ dù sao mình cũng cảm ơn