(Делфи)Массивы

[zoza1]

Народ тут такое дело есть 2 задачки, пытался решить, но чето не получается. Подскажите плз что тут можно придумать. Вот собсно и задачки:
1)11. Задан вектор М(n), n£9. Сформировать вектор С из элементовM[i], значения которых не равны A и В. Найти количество нулей в новом массиве. Выполнить сдвиг полученного массива влево на одну позицию.
2)11. Для матрицы S(m,n), 1<(m, n)<10, напечатать номера строк, в которых есть хотя бы один нуль.

[IT-man]

{Задан вектор М(n), n<9. 
Сформировать вектор С из элементовM[i], значения которых не равны A и В. 
Найти количество нулей в новом массиве. 
Выполнить сдвиг полученного массива влево на одну позицию.}
var
 m,c:array[1..9] of integer;
 a,b:integer;
 i,n,k:integer;
 co:integer;
 begin
 k:=0;
 co:=0;
 readln(n);
 readln(a);
 readln(b)
 for i:=1 to n do begin
 readln(m[i]);
 if (m[i]<>a) and (m[i]<>b) then begin k:=k+1;c[k]:=m[i];end;
 writeln('M(',n,'):');
 for i:=1 to n do write(m[i]);
 Writeln;
 writeln('C(',k,'):');
 for i:=1 to k do
 begin
 if c[i]=0 then co:=co+1;
 write(c[i]);
 end;
 Writeln;
 Writeln('0:',co:2);
 k:=k-1;
  writeln('new C(',k,'):');
 for i:=1 to k do
 begin
 c[i]:=c[i+1];
 Write(c[i]:2);
 end;
 readln;
 end.

{Для матрицы S(m,n), 1<(m, n)<10,
 напечатать номера строк, в которых есть хотя бы один нуль}
 var
 s:array[1..10,1..10] of integer;
 n,m,i,j:integer;
 begin
 Readln(n);
 Readln(m);
 For i:=1 to n do
 for j:=1 to m do
 readln (s[i,j]);
 Writeln('s(',n,m,'):');
 for i:=1 to n do begin
 for j:=1 to m do 
 write(s[i,j]);
 writeln;
 end;
 for i:=1 to m do
 for j:=1 to n do
 if a[i,j]=0 then begin Writeln(i);break;end;
 readln;
 end.