Смена типа данных

Program example_3;
const M=1000; C=100; X=10; V=5; I=1;
Var
    iSymbol,
    iWord,
    n,j,k:Integer;
    s,ch,q:Char;
    str:String;
    f1,f2:Text;
Begin
    Assign(f1,'file.txt');Reset(f1);
    Assign(f2,'file_r.txt');Rewrite(f2);
    WriteLn(f2,'Pochatkovuy tekst':30);
    While Not Eof(f1) do
       Begin  ReadLn(f1,str);
    k:=0;
    for j:=1 to length(str) do
    begin
     case str[j] of
     'I': if (str[j]='I') and (str[j+1]='V') then begin k:=k+4;inc(j);end
     else if (str[j]='I') and (str[j+1]='X') then begin k:=k+9;inc(j);end
     else if (str[j]='I') and (str[j+1]='C') then begin k:=k+99;inc(j);end
     else if (str[j]='I') and (str[j+1]='M') then begin k:=k+999;inc(j);end
     else k:=k+i;
     'V': k:=k+v;
     'X': if (str[j]='X') and (str[j+1]='C') then begin k:=k+90;inc(j);end
     else if (str[j]='X') and (str[j+1]='M') then begin k:=k+990;inc(j);end
     else k:=k+x;
     'C': if (str[j]='C') and (str[j-1]='M') then begin k:=k+900;inc(j);end
     else k:=k+c;
     'M': k:=k+m;
     end;
     end;
    WriteLn(f2,str);
         End;
    iSymbol:=0;iWord:=0;n:=0;str:='';
    WriteLn(f2,'Pereroblennuy tekst':30);
    Reset(f1);
    [U]str:=k;[/U]                            {Type missmatch}
    Close(f1);Close(f2);Reset(f2);
    While Not Eof(f2) do
         Begin ReadLn(f2,str);WriteLn(str); End;
     Close(f2);
End.