Задача по Паскалю. 1 уровень сложности.

[Сергей1]

Имеется задача. Пожалуйста помогите с решением, совсем не знаю что с ней делать.
Исходная информация: число k, 1<k<37 и правильная дробь в системе счисления с основанием k, заданная в формате string.
Задание: найти значение дроби в десятичной системе счисления.
Причемание: можно предполагать, что точность представления дроби соответствует формату real.

[bill]

Набил на скорую руку, поидее должно работать(Паскаль).

program sda;
uses crt;
var  j,m,n,t:integer; a:array of integer;
begin
readln(m);
readln(n);
for i:=1 to n do
setlength(a[i],n);{как вариант сделай двум массив разномерностью 1000*1000чтобы не устанавливать длину}
for i:=1 to n do
for z:=1 to n do
a[i,z]:=random(m*random(n));
for i:=1 to n do
if (i+m-1)<=n then begin
j:=0;
for z:=i to (i+m-1) do
for t:=i to (i+m-1) do
begin
j:=j+a[i,z];
if t=(i+m-1)and(z=(i+m-1)) then write(j);
end;
end;
end.

[Сергей1]

аригато! 1111