các pro sửu lỗi giúp em với - const f1='HOHANG.INP'; f2='HOHANG.OUT'; var f:text; n,i,t,s,d:integer; st:string; Procedure dem(var a,tg:integer); var i,x:integer; st:string; begin str(a,st); x:=0; for i:=1 to length(st) do begin val(st[i],x); tg:=tg+sqr(x); end; end; Begin assign(f,f1);reset(f); readln(n); close(f); dem(n,t); d:=0; s:=0; for i:=1 to n do begin dem(i,st); if t=s then d:=d+1; s:=0; end; assign(f,f2);rewrite(f); write(f,d); close(f); End. - main.pas(24,25) Error: Call by var for arg no. 2 has to match exactly: Got "ShortString" expected "SmallInt" main.pas(31,4) Fatal: There were 1 errors compiling module, stopping