Проверте, пожалуйста, где ошибки и помогите сделать блок схему

program s;
uses 
crt;
var
  a:array [1..7,1..9] of integer;
  b,c:array [1..6] of integer;
  i,j,k,l,kolpol,kolotr,sumpol,sumotr:integer;
begin 
  clrscr;
  randomize;
  k:=0; i:=0;
  sumpol:=0;kolotr:=0; sumotr:=0; kolotr:=0;
for i:=1 to 7 do
  begin
  for j:=1 to 9 do
    begin
      a[i,j]:=-50+random(100); write(a[i,j]:5)
    end;
    writeln
  end; readln;
  for i:=1 to 7 do
    for j:=1 to 9 do
      begin
        if (a[i,j]<0) then begin
         b[k]:=a[i,j]; k:=k+1;
         sumotr:=sumotr+a[i,j];
         kolpol:=koltrol+1;
       end
        else
       begin
          c[i]:=a[i,j]; i:=i+1;
          sumpol:=sumpol+a[i,j];
          koltrol:=koltrol+1;
        end; readln;
     for k:=1 to k do
       if (k mod 10=0) then writeln
       else write(' ',b[k]:5);
       writeln;
       writeln('kolichestvo otricatelnih = ',kolotr:3);
       writeln('summa otricatelnih = ',sumotr:3);
         writeln; readln;
     for i:=1 to 1 do
       if (1 mod 10=0) then writeln
       else write(' ',c[i]:5);
       writeln;
       writeln('kolichestvo polozjitelnih = ', kolpol:3);
       writeln('summa polozjitelnih = ', sumpol:3);
       writeln; readln;
end.