класс Осуществить перевод чисел одной системы счистления в другую

  program proga; 
 Var
 A: text;   
  i,j,n,m : byte;     
 d: string;     
 Sim:char; 
Begin             
write('Введите имя текстового файла   ');  {Например: "test" он создастся там где находится сама программа }             
  read(d);                                       
 assign(A,d);               
 rewrite(A);                   
  write('Введите количество строк: N= ');                        
readln(n);                   
 write('Введите количество символов в строке: M= ');                       
 readln(m);                                   
  for I:=1 to n do                   
 begin                           
Sim:=Chr(Ord('1')+I-1);                         
  For J:=1 to m do                             
  write(A,Sim);                             
  writeln(A);                   
 end;                           
close(A);
end.     

Program proga;
Var
 p: text;     
 i, n : byte;     
s,min,m: string;     
 Begin                           
write('Введите имя и путь к файлу   ');  {Например: C:/test.txt}                         
 read(m);                   
 Assign(p,m);        
reset(p);
    read(p,s);
min:=s;   
 n:=100; 
  for i:=1 to n do   
begin   
  readln(p,s);                                    
   while not eof(p) do   {нахождение минимальной строки}         
 begin         
 readln(p,s);       
  if length(s) <= length(min) then        
  min:=s;         
end;          
end;
close(p);   
 write('самая короткая строка: ',min);
End.