Здраствуйте. Оцените программу. Pascal ABC.

Код: var a:array[1..100] of integer; f,i,n,m,k,j:integer; p:string; begin cls; writeln('Перевод десятичного числа в заданную систему счисления'); writeln('Введите основание системы счисления, в которую перевести исходное число:'); readln(n); writeln('Введите исходное десятичное число'); readln(m); f:=m; for i:=1 to 30 do begin j:=m mod n; a:=j; m:=m div n; end; begin for i:=1 to 30 do if a>=1 then k:=i; end; writeln ('________________________________________________________________________________________________'); writeln; write ('Десятичное число ',f,', при переводе в систему счисления с основанием ',n,' примит вид: '); for i:=k downto 1 do if a<10 then write(a) else begin if a=10 then p:='A'; if a=11 then p:='B'; if a=12 then p:='C'; if a=13 then p:='D'; if a=14 then p:='E'; if a=15 then p:='F'; write(p); end; writeln; write('________________________________________________________________________________________________'); writeln; write('Конец.'); read; end. Вот я написал такую простенькую программу, я в этом деле новичек, и поэтому хочу узнать Ваше мнение. 1) Логично ли я вообще составляю программу? 2) Может тут всё гараздо проще? 3)Вообще стоит ли мне програмировать? Или это не моё?. База знаний у меня только по школьному курсу информатики. Поясните пожалуйста свой ответ. Заранее благодарю.