Комментарии к программе

program Perevod;
uses Crt;
const
  max = 255;
  Ch    :array[0..35] of string = ('0','1','2','3','4','5','6','7','8','9','A',
  'B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T',
  'U','V','W','X','Y','Z'); 
 
var
  sysout, sysin :byte;
  i,len,j,l :byte;
  n :string;
  a :array[1..max] of byte;
  k  :longint;
  proverka,asc  :boolean;
  st,ign :string;
 
function stepen(chislo,step:byte):longint;
    
var
  kl :longint;
  il :byte;
begin
  kl:=1;
  for il:=1 to step do kl:=kl*chislo;
  stepen:=kl;
end;
 
begin
  ClrScr;
  repeat
    Write('с какой системы переводим???');Readln(sysout);
  until (sysout>1) and (sysout<37);
  Write('‚что за число???');Readln(n);
  repeat
    Write('в какую систему???');Readln(sysin);
  until (sysin>1) and (sysout<37);
  len:= length(n); 
  j:=1;
  proverka:=False;  
  ign:='';
  for i:=1 to len do begin
    st:=copy(n,i,1); 
    st:=UpCase(st[1]);
    asc:=False; 
    for l:=0 to sysout-1 do
      if ch[l]=st then  begin 
        a[j]:=l; 
        ign:=ign+st;
        asc:=True; 
      end;
    if asc=False then proverka:=True
    else inc(j);
  end;
  if proverka=True then begin  
   Write('при вводе числа были допущены ошибки ');
   Writeln('в числе есть лишние цифры или');
   Writeln('или некоторые числа не входят в исходную систему исчисления');
  end;
  len:=j-1; 
  k:=0;
  for i:=1 to len do  k:=k+a[i]*stepen(sysout,len-i);
  i:=0;
  repeat
    inc(i);
    a[i]:=k mod sysin;
    k:=k div sysin;
  until k<sysin;
  if k<>0 then begin
    inc(i);
    a[i]:=k;
  end;
 
  Write(ign,' (',sysout,') = ');
  for j:=i downto 1 do Write(ch[a[j]]);
  Write(' (',sysin,')');
  Writeln;
  ReadKey;
end.