Счётчик

[Mr.Been]

Помогите доделать программу:
[PASCAL]
Program lab3;
uses crt;
const n=3;
Var a:array [1..n,1..n] of string;
k,i,j:integer;
Begin
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
write('vvedite a[',i,j,']');
Readln(a[i,j]);
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
Write(a[i,j]:3);
Writeln;
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
if (a[i-1,j]='c') and (a[i,j]='w') then k:=k+1;
end;
end;
writeln ('Kolichestvo bukv C v stroke ',i,' = ',k);
end;
End.
[/Pascal]
Не считает количество букв С.
Заранее спасибо!

[__STDC__]

Это трехмерный массив что ли?
Тег CODE используйте, ради Будды

***
вот так наверное вы имели ввиду? Считает буквы c и w

uses crt;
	
const n=3;

Var 
	a:array [1..n,1..n] of string;
	k,i,j,m:integer;

Begin

	for i:=1 to n do 
		for j:=1 to n do begin
			write('vvedite a[',i,j,']');
			Readln(a[i,j]);
		end;

	for i:=1 to n do begin
		for j:=1 to n do
			Write(a[i,j]:5);
		Writeln;
	end;
	
	for i:=1 to n do begin
		m:=0;
		for j:=1 to n do 
			for k:=1 to length(a[i,j]) do
				if (a[i,j,k]='c') or (a[i,j,k]='w') then 
					inc(m);
		writeln ('Kolichestvo bukv C i W v stroke ',i,' = ',m);
	end;
	
End.

[Mr.Been]

Сообщение от __STDC__

***
вот так наверное вы имели ввиду? Считает буквы c и w
[/CODE]

Нужно в каждой строке массива найти количество букв С, расположенных слева от буквы Ш(известно что буква Ш в каждой строке единственная).

[__STDC__]

а я это угадать должен быть?
исправьте

			for k:=1 to length(a[i,j]) do
				if (a[i,j,k]='c') or (a[i,j,k]='w') then

на

			for k:=2 to length(a[i,j]) do
				if (a[i,j,k-1]='c') and (a[i,j,k]='w') then