Не могу найти ошибку в программе. Что исправить?

program n1;
var a,l:integer;
str,s1,n:string;
input,output:text;
 
begin
assign (input, 'input.txt');
assign(output, 'output.txt');
 
reset(input);
rewrite(output);
read (input,str);
l:=length(str);
 
 while (l>0) do
 begin
  if l=1 then 
  begin
   a:=strtoint(str);
   n:=chr(a+96);
   write(output,n);
   l:=0;
   break;
  end;
  if l=2 then 
  begin
   if ((str[1]='1') or ((str[2]<'7')and (str[1]='2'))) then
   begin
    a:=strtoint(str);
    n:=chr(a+96);
    write(output,n);
    delete (str,1,2);
    l:=0;
    break;
    end
   else
   begin
    a:=strtoint(str[1]);
    n:=chr(a+96);
    write(output,n);
    delete (str,1,1);
    l:=1;
   end;
  end;
  if l>2 then 
  begin
   if (ord(str[3])=48) then
   begin
    a:=strtoint(str[1]);
    n:=chr(a+96);
    write(output,n);
    delete (str,1,1);
    l:=l-1;
    if l=0 then break;
   end
   else begin
   if ((str[1]='1') or ((str[2]<'7')and (str[1]='2'))) then
    begin
    s1:=copy(str,1,2);
    delete (str,1,2);
    a:=strtoint(s1);
    n:=chr(a+96);
    write(output,n);
    l:=l-2;
    if l=0 then break;
    end
   else begin
   s1:=copy(str,1,1);
    delete (str,1,1);
    a:=strtoint(s1);
    n:=chr(a+96);
    write(output,n);
    l:=l-1;
    if l=0 then break;
   end;
   end;
   end;
   end;
close(input);
close(output);
end.

begin
  var InputString:= ReadString('InputCode:');
  var OutputCollection: string;
  var IntBufferPrevChar:= 0;
  var IntBufferCurChar:= 0;
  var Number:= 0;
  foreach var ch in InputString do
  begin
    IntBufferCurChar:= integer.Parse(ch);
    if ((IntBufferPrevChar*10 + IntBufferCurChar) in [1..26])
    then
      begin
        if not (IntBufferPrevChar = 0)
        then
          begin
            OutputCollection += char.ConvertFromUtf32(IntBufferPrevChar * 10 + IntBufferCurChar + 96);
            IntBufferPrevChar:= 0;
          end
        else
          IntBufferPrevChar:= IntBufferCurChar;
      end
    else
      begin
        if IntBufferPrevChar = 0
        then
          IntBufferPrevChar:= IntBufferCurChar
        else
          OutputCollection += char.ConvertFromUtf32(IntBufferPrevChar + 96);
        IntBufferPrevChar:= IntBufferCurChar;
      end;
  end;
  OutputCollection.Println('; ');
end.

begin
  var InputString:= System.IO.File.ReadAllText(ReadString('InputFileWay:'), System.Text.Encoding.UTF8);//ReadString('InputCode:');
  var OutputCollection: string;
  var IntBufferPrevChar:= 0;
  var IntBufferCurChar:= 0;
  var Number:= 0;
  foreach var ch in InputString do
  begin
    IntBufferCurChar:= integer.Parse(ch);
    if ((IntBufferPrevChar*10 + IntBufferCurChar) in [1..26])
    then
      begin
        if not (IntBufferPrevChar = 0)
        then
          begin
            OutputCollection += char.ConvertFromUtf32(IntBufferPrevChar * 10 + IntBufferCurChar + 96);
            IntBufferPrevChar:= 0;
          end
        else
          IntBufferPrevChar:= IntBufferCurChar;
      end
    else
      begin
        if IntBufferPrevChar = 0
        then
          IntBufferPrevChar:= IntBufferCurChar
        else
          OutputCollection += char.ConvertFromUtf32(IntBufferPrevChar + 96);
        IntBufferPrevChar:= IntBufferCurChar;
      end;
  end;
  OutputCollection.Println('; ');
  System.IO.File.WriteAllText(ReadString('PathToOutputFile:'), OutputCollection);
end.