Проблемы с блок схемами

var a:array[1..10,1..10]of integer;
b:array[1..10]of integer;
i,j,mnull,mpol,tmp,min:integer;
k,tmp2.motr:real;
begin
randomize;
for i:=1 to 10 do
   begin
   for j:=1 to 10 do
   a[i,j]:=random(20)-10;
   end;
mnull:=0;
mpol:=1;
motr:=0;
k:=0;
for i:=1 to 10 do
   begin
   for j:=1 to 10 do
      begin
      if a[i,j]=0 then mnull:=mnull+1;
      if (a[i,j]>0)and(j=2) then mpol:=mpol*a[I,j];
      if (a[i,j]<0)and(i=8) then begin motr:=motr+a[i,j]; k:=k+1; end;
      end;
   end;
writeln('Nulevux=',mnull,' Polozhit vo 2 st=',mpol);
tmp2:=motr/k;
writeln('Srednee otricatelnoe=',tmp2:5:3);
for i:=1 to 10 do
   begin
   for j:=1 to 10 do
      begin
      if i=j then begin tmp:=a[i,j]; a[i,j]:=a[1,j]; a[1,j]:=tmp; end;
      end;
   end;
min:=a[1,1];
for j:=1 to 10 do
   begin
   for i:=1 to 10 do
      begin
      if min<a[i,j] then min:=a[i,j];
      end;
   b[j]:=min;
   min:=a[1,j];
   end;
for i:=1 to 10 do 
   begin
   for j:=1 to 10 do
      begin
      write(a[i,j]);
   end;
   writeln;
   end;
for i:=1 to 10 do
write(b[i]);
writeln;
readln;
end.

uses crt;
var a:array[1..30]of integer;
    k,i,proizv,j:integer;
    t1,t2,n:longint;
begin
clrscr;
for i:=1 to 30 do
a[i]:=0;
write('n=');readln(n);
i:=0;
proizv:=1;
repeat
inc(i);
t1:=n mod 10;
t2:=(n-t1) div 10;
a[i]:=t1;
n:=t2;
until n=0;
j:=0;
for k:=i downto 1 do
begin
inc(j);
if j mod 2 <> 0 then proizv:=proizv*a[k];
end;
writeln('proizvedenie=',proizv);
readln;
end.

uses crt;
var s:string;
i,n:integer;
label 1;
begin
writeln('vvedite chto-to, plz');
readln(s);
for i:=1 to length(s) do begin
if s[i]<>'.' then begin
if (s[i]='a') or (s[i]='A') or (s[i]='*') or (s[i]='Ђ') then
n:=n+1;
end
else goto 1;
end;
1:if n<>0 then writeln ('kolichestvo a ravno=',n)
else writeln('bukv a netu');
readkey
end