Таблица Пифагора, Нужна помощь в корректировке проги Опции

[SkyRideR]

Задача состоит в том, чтобы создать прогу которая выводит на экран квадрат Пифагора - таблицу
умножения для 14 с\с. Я тут написал что мог, но у меня не соответсвие типов идёт. Если не трудно прошу помочь




var
ckl, ckl2 :integer;
z:array[1..10,1..10] of integer;
function FromDec(n, radix:longint):string;
var
s: String;
const
digit: string[16]='0123456789ABCDEF';
begin
s:='';
repeat
s:=digit[(n mod radix)+1]+s;
n:=n div radix;
until n=0;
FromDec:=s;
end;
function ToDec(n:string; radix:longint):longint;
var
m, i: longint;
const
digit: string[16]='0123456789ABCDEF';
begin
m:=0;
while (n[1]='0') and (length(n) > 1) do delete(n,1,1);
for i:=1 to length(n) do m:=m*radix+pos(n[i],digit)-1;
ToDec:=m;
end;
begin
for ckl:=1 to 10 do begin
for ckl2:=1 to 10 do begin
z[ckl,ckl2]:= FromDec((todec(ckl,ckl2, 14), 14);
end;
end;
for ckl:=1 to 10 do begin
for ckl2:=1 to 10 do begin
write(z[ckl,ckl2], ‘ ‘);
end;
writeln;
end;
writeln(FromDec(ToDec(5,5));
end.