Где ошибка в функции?!

function m1 (m:char; d:byte):real;
var i:byte;
    b:string;
begin
for i:=1 to d+1 do
b[i]:=m;
val(b,m1);
end;

procedure val(s : string; var r : real; var err : integer);

b:='';
for i:=1 to d+1 do
  b:=b+m;

function n1 (n:char; d:byte):real;
var i:byte;
    a:string;
begin
a:='';
for i:=1 to d+1 do
a:=a+n;
val(a,n1);
end;
 
function m1 (m:char; d:byte):real;
var j:byte;
    b:string;
begin
b:='';
for j:=1 to d+1 do
b:=b+m;
val(b,m1);
end;

function n1 (n:char; d:byte):real;
var
  i:byte; a:string;
begin
  a:=''; for i:=1 to d+1 do a:=a+n; val(a,n1);
end;
 
function m1 (m:char; d:byte):real;
var
  j:byte; b:string;
begin
  b:=''; for j:=1 to d+1 do b:=b+m; val(b,m1);
end;
begin
  WriteLn(n1('1',1):0:0);
  WriteLn(m1('1',1):0:0);
end.

{при вызове}
z1 := n1('1',2);
z2 := n1('3',4);

readln(n,m);

readln(n);
readln(m);

program test;
var
   a:string[3];
   m,n:char;
   d:byte;
function n1 (n:char; d:byte):real;
var
   i:byte;
   a:string;
begin
a:='';
for i:=1 to d do
a:=a+n;
val(a,n1);
end;
begin
readln(a);
n:=a[1];
m:=a[3];
readln(d);
writeln(n1(n,d):0:0);
writeln(n1(m,d):0:0);
readln;
end.

var
  m, n, d, i: integer;
  n1, n2: longint;
begin
  WriteLn('Введите d, m, n: '); ReadLn(d,m,n);
  n1:=0; for i:=m downto 1 do n1:=n1*10+d;
  n2:=0; for i:=n downto 1 do n2:=n1*10+d;
end.

function rep(digit, count: integer): longint;
var r: integer;
begin
  r:=0; for count:=count downto 1 do r:=r*10+digit;
  rep:=r;
end;
begin
  WriteLn('Введите d, m, n: '); ReadLn(d,m,n);
  n1:=rep(d,m); n2:=rep(d,n);
end.

var
  d, m, n: integer;
  x1, x2: real;
begin
  WriteLn('Введите d, m, n: '); ReadLn(d,m,n);
  x1:=n1(ord('0')+d,m); x2:=n1(ord('0')+d,m);
end.