我用Turbo 2.0编好代码后，不会看其效果，请高手指教，怎么看编好的程序？

program highprecision4_multiply2;
const
 fn_inp='hp4.inp';
 fn_out='hp4.out';
 maxlen=100;
type
 hp=record
 len:integer;
 s:array[1..maxlen] of integer
 end;
var x:array[1..2] of hp;
 y:hp;
procedure printhp(const p:hp);
var i:integer;
begin
for i:=p.len downto 1 do write(p.s[i]);
end;
procedure init;
var
 st:string;
 j,i:integer;
begin
assign(input,fn_inp);
reset(input);
for j:=1 to 2 do
begin
readln(st);
x[j].len:=length(st);
for i:=1 to x[j].len do
x[j].s[i]:=ord(st[x[j].len+1-i])-ord('0');
end;
close(input);
end;
procedure multiply(a,b:hp;var c:hp);
var i,j,len:integer;
begin
fillchar(c,sizeof(c),0);
for i:=1 to a.len do
for j:=1 to b.len do
begin
inc(c.s[i+j-1],a.s[i]*b.s[j]);
inc(c.s[i+j],c.s[i+j-1] div 10);
c.s[i+j-1]:=c.s[i+j-1] mod 10;
end;
len:=a.len+b.len+1;
while(len>1)and(c.s[len]=0) do dec(len);
c.len:=len;
end;
procedure main;
begin
multiply(x[1],x[2],y);
end;
procedure out;
begin
assign(output,fn_out);
rewrite(output);
printhp(y);
writeln;
close(output);
end;
begin
init;
main;
out;
end.
多给点分吧，打这么多不容易呀！