Пожалуйста помогите исправить несколько задач

[Shatyn]

Определить, сколько раз встречается число 7 среди элементов массива
program Project4;
Var
a:array[1..8] of Integer;
k,n,i:Integer;
begin
For i:=1 to 8 do
begin
a[i]:=Random(10);
Writeln('a[i]=',i);
end;
n:=7;
For i:=1 to 8 do
If a[i]= n then
a[i]:= a[i+1];
n:=a[i];
Writeln('n=',n);
readln;
end.

) Найти среднее арифметическое значение элементов второго столбца матрицы.

program Project5;
Var
i,j:Integer;
a : array [1..12,1..12]of Integer;
sum, count: real;
begin
sum:=0; count:=0;
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin a[i,j]:= Random(9);
Writeln(a[i,j]);
end;
writeln;
end;
sum:=(a[1,2]+a[2,2]+a[2,3])/3;
writeln('srednee:',sum);
readln;
end.

Определить, сколько букв в самой короткой фамилии списка.
program z6;
type t=array[1..8] of string[20];
tt=array[1..8] of integer;
var s: t;
n: tt;
i, min: integer;
begin
for i:=1 to 8 do
begin
writeln('Введите слово');
readln(s[i]);
n[i]:=length(s[i]);
end;
min:=n[1];
for i:=2 to 8 do
if min>n[i] then min:=n[i];
for i:=1 to 8 do
if n[i]=min then writeln(s[i]);
Writeln(Length(s));
readln;
end.
Проверить, все ли элементы заданного массива A(N) положительны.
program Project9;
const N=10;
var i:integer;
A:array [1..N] of integer;
positive:boolean;
begin
positive:=true;
i:=1;
while (i<=N) and positive do
begin
positive:=A[i]>0.0;
i:=i+1;
end;
if positive then
writeln('Положительны')
else
writeln('Есть отрицательные');
readln;
end.
Зарание спосибо!!!

[D-mon]

Определить, сколько раз встречается число 7 среди элементов массива

 program Project4;
Var
a:array[1..8] of Integer;
k,n,i:Integer;
begin
For i:=1 to 8 do
begin
a[i]:=Random(10);
Writeln('a[i]=',a[i]);
end;
n:=0;
For i:=1 to 8 do
 begin
   If a[i]= 7 then  n:= n+1;
 end;
Writeln('n=',n);
readln;
end.

[Shatyn]

Так она тоже не работает.

[D-mon]

Дальше впадло, сильно легко. Сам разберёшься. А если нет, читай книги.

[Tayfun]

Определить, сколько раз встречается число 7 среди элементов массива
program Project4;
Var
a:array[1..8] of Integer;
k,n,i:Integer;
begin
For i:=1 to 8 do
begin
a[i]:=Random(10);
Writeln('a[i]=',i);
end;
n:=7;k:=0;
For i:=1 to 8 do
If a[i]=n then k:= k+1;
Writeln('k=',k);
readln;
end.

) Найти среднее арифметическое значение элементов второго столбца матрицы.

program Project5;
Var
i,j:Integer;
a : array [1..12,1..12]of Integer;
sum, count: real;
begin
for i:=1 to 12 do
begin
for j:=1 to 12 do
begin a[i,j]:= Random(9);
Writeln(a[i,j],' ');
end;
writeln;
end;
sum:=0;
for i:=1 to 12 do
sum:=sum+a[i,2];
count:=sum/12;
writeln(count:1:4);
readln;
end.

Определить, сколько букв в самой короткой фамилии списка.
program z6;
type t=array[1..8] of string[20];
var
s:t;
c,i, min: integer;
begin
for i:=1 to 8 do
begin
writeln('Введите слово');
readln(s[i]);
c:=length(s[i]);
if min=0 then min:=c else if c<min then min:=c;
end;
writeln(min);
readln;
end.
Проверить, все ли элементы заданного массива A(N) положительны.

program Project9;
const N=10;
var i:integer;
A:array [1..N] of integer;
positive:boolean;
begin
positive:=false;
for i:=1 to n do begin
a[i]:=random(100)-25;
if a[i]<0 then positive:=true;
end;
if positive=false then
writeln('Положительны')
else
writeln('Есть отрицательные');
readln;
end.

[Shatyn]

[quote=Tayfun;25625]Определить, сколько букв в самой короткой фамилии списка.
program z6;
type t=array[1..8] of string[20];
var
s:t;
c,i, min: integer;
begin
for i:=1 to 8 do
begin
writeln('Введите слово');
readln(s[i]);
c:=length(s[i]);
if min=0 then min:=c else if c<min then min:=c;
end;
writeln(min);
readln;
end.
___________________________________ _________________________
Чето эта программа не работает.