1.
Program VD1;
Var a: array [1..100] of integer;
i,m,n: byte;
Begin
For i:=1 to 25 do
Begin
Write (' Nhap du lieu tu ban phim ');
Readln (a[i]);
end;
m:= 0;
n:=0;
For i:= 1 to 25 do
Begin
If a[i] > 0 then m:= m+1;
If a[i] <0 then n:= n+1;
end;
Writeln (' Mang tren co ', m, ' so lon hon 0');
Writeln (' mang tren co ', n, ' so nho hon 0');
readln;
end.

2. ( đề bài là tạo xâu S hay S1?) mk làm là tạo xâu s1

S:= 'Hoc Sinh Tran Phu';
S1:= copy (s,10,8);
Nếu bài giải bại sai bạn chat cho mk nhé~