giúp mình làm bài này với: (pascal) Cho 2 xâu S1,S2 được nhập vào từ bàn phím. Viết chương trình kiểm tra xem có bao nhiêu ký tự trùng nhau và in các ký tự đó ra màn hình.

program bai_tap;

uses crt;

var S1, S2 : string;

      i, a, dem : integer;

begin

  writeln ('Nhap xau S1 va S2');

  readln (S1, S2);

  dem := 0;

  for a := S1 [1] to S1 [length(S1)] do

      begin   for i := 1 to length(S2) do if S2[i] = a then dem := dem + 1;

                  if  dem >= 1 then writeln (a);

      end;

   readln;

end.

var S1， S2 : string;

i， a， dem : integer;

begin

writeln (‘Nhap xau S1 va S2’);

readln (S1， S2);

dem := 0;

for a := S1 [1] to S1 [length(S1)] do

begin   for i := 1 to length(S2) do if S2[i] = a then dem := dem + 1;

if  dem >= 1 then writeln (a);

end;

readln;

end.