Информатика 8 класс. Подалуйста

  program project2; {$apptype console} uses sysutils,windows; var a,b: array of real;       i: byte;     cs,sk,da,db: real;     n: integer; begin setconsoleoutputcp(1251); randomize; writeln('введите n'); readln(n); setlength(a,n); setlength(b,n); writeln('вектор à'); for i: =0 to high(a) do  begin    a[i]: =-5+10*random;   write(a[i]: 5: 1);   end; writeln; writeln('вектор b'); for i: =0 to high(b) do   begin    b[i]: =-5+10*random;   write(b[i]: 5: 1);   end; writeln; {скалярные произведения и длинны векторов} sk: =0; da: =0; db: =0; for i: =0 to n-1 do  begin    sk: =sk+a[i]*b[i];   da: =da+sqr(a[i]);   db: =db+sqr(b[i]);   end; {косинус} cs: =sk/sqrt(da)/sqrt(db); write('cos(aльфа)=',cs: 0: 3); readln; end.

Var    a: array [1..100] of integer;     k,n,i: integer; begin k: =0;     write ('введите размер: ');       readln(n);       for i: =1 to n do              readln (a[i]);       for i: =1 to n do      begin            if a[i] mod 10=8 then                  k: =k+1    end;     write (k); end.