код программы проверьте

[innaa639]

Ввести с клавиатуры стринговую константу, делая маленькие буквы большими. выделить 16-ти разрядные константы, перемножить их. представить выделеные числа и их произведения у 10-тичной системе счисления.


Вот сам код:

uses crt;
var s:string;
i,u:integer;
error:integer;
f:text;
function IntToStr(I: Longint) : String;
var
   S: string [11] ;
begin
   Str(I, S) ;
   IntToStr:= S;
end;

function hexstrTOint(s: string): integer;
Var i: integer;
var k: integer; 
    razrad: integer; 
    result:integer;
    m,s1:string;
begin
result:=0;
razrad:=1;
For i:=Length(s) to 1 do
 begin
  k:=0;

  If (Ord(s[i])>=0) and (Ord(s[i])<=9) then 

  m:=IntToStr(k);
{===========================================================================}
assign(f,'1.txt');
rewrite(f);
write(f,m);
close(f);
{===========================================================================}
assign(f,'1.txt');
reset(f);
read(f,s1);
close(f);
{===========================================================================}
Val(s1,u,Error);


if Error>0 then
begin
 If (Ord(s[i])>=Ord('A')) and (Ord(s[i])<=Ord('F')) then {бЁ¬ў®«}
  k:=10+(Ord(s[i])-Ord('A'));
  end
else
   if pos('.',s1) = 0 then
      k:=u;


  razrad:=razrad*16;
  Result:=Result+k*razrad;
  razrad:=razrad*16;
 end;
end;

Var str: string;
  ans: integer; 

begin
clrscr;
writeln('vvedite stroky:');
readln(s);
writeln;
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then
s[i]:=chr(ord(s[i])-32);
write(s);


While Length(s)>0 do begin
str:='';
  If Pos(' ', s)>0 then begin
            str:=copy(s, 1, Pos(' ', s)-1 );
            Delete(s,1, Pos(' ', s) );
       end
  else begin str:=s;s:=''; end;

 ans:=ans*hexstrTOint(str)

end;


readln;
end.

[Stilet]

Че его проверять?
Код запускается?

[innaa639]

он запускается, но работает только его первая часть, тоесть он мне только буквы с маленьких переделывает в большие и все,а остального не делает, это мне вчера на форуме его написали, сказали исправить ошибки о будет работать, но я исправила и все равно осталось тоже

[Stilet]

Для начала добавть перед последним readln
строку

writeln(ans);

p.s. Паскаля нет под рукой...