Найти ошибки в коде

program lab6;
type a1 = array [1..10] of integer;
     b1 = array [1..8] of integer;
 
procedure aa (var a: a1; s: real; k: integer);
var i, su: integer;
begin
 randomize;
 su:= 0; k:= 0; i:= 1;
 while i < 11 do
 begin
  a[i]:= random(100) - 50;
  write (' a[',i,']=',a[i]:4);
  su:= su + i;
  if a[i] > 0 then
  k:= k + 1;
  i:= i+ 1;
 end;
 s:= su / 10;
end;
 
procedure bb (var b: b1; s: real; k: integer);
var i, su: integer;
begin
 randomize;
 su:= 0; k:= 0; i:= 1;
 while i < 9 do
 begin
  b[i]:= random(100) - 50;
  write (' b[',i,']=',b[i]:4);
  su:= su + i;
  if i > 0 then
  k:= k + 1;
  i:= i+1;
 end;
 s:= su / 8;
end;
 
var
 a: array [1..10] of integer;
 b: array [1..8] of integer;
 s1,s2,z:real; k1,k2,x:integer;
begin
 aa (a, s1, k1);
 writeln(' s1 = ',s1,' k1 = ',k1);
 bb (b, s2, k2);
 writeln(' s2 = ',s2,' k2 = ',k2);
 write ('vvedite znachenie x '); readln(x);
 z:= (exp(s1*ln(x))+exp(s2*ln(x)))/(k1+k2);
 writeln ('znachenie funkcii z = ',z);
 readln;
end.

program lab6;
uses crt;
type mas = array [1..10] of integer;
procedure aa (var a: mas; n:integer; var s: real; var k: integer;c:char);
var i, su: integer;
begin
writeln('Massiv ',c,':');
su:= 0; k:= 0;
for i:=1 to n do
 begin
  a[i]:= random(100) - 50;
  write (a[i]:4);
  su:= su + i;
  if a[i] > 0 then k:= k + 1;
 end;
s:= su / n;
writeln;
writeln;
end;
var
 a,b:mas;
 s1,s2,z:real; k1,k2,x:integer;
begin
 clrscr;
 aa (a, 10,s1, k1,'A');
 writeln(' s1 = ',s1:0:2,' k1 = ',k1);
 writeln;
 aa (b, 8,s2, k2,'B');
 writeln(' s2 = ',s2:0:2,' k2 = ',k2);
 writeln;
 write ('vvedite znachenie x '); readln(x);
 z:= (exp(s1*ln(x))+exp(s2*ln(x)))/(k1+k2);
 writeln ('znachenie funkcii z = ',z:0:4);
 readln;
end.