program Probel;

type mas = array ['a'..'z'] of char;
    mas2 = array [1..100] of integer;

var

m:mas;
m2:mas2;
a:char;

b,i,p,d:integer;

begin

writeln ('Skolko budet strok simvolov?');


readln(B);

for i:=1 to b do

begin
Writeln ('Vvedite simvoli');

readln(a);

readln (m[a]);
begin

while a= '  ' do

begin
p:=0;

p:=p+1;


readln(m2[p]);
end;


end;

end;                  

writeln ('Vsego probelov:=', (m2[p]));
end.

var
mass:array[1..100] of string;
n,i,j,p:word;
s:string;
begin
{ввод массива}
write('введите число строк: ');  readln(n);
for i:=1 to n do readln(mass[i]);
{подсчет числа пробелов}
for i:=1 to n do
begin
 s:=mass[i];
 for j:=1 to length(s) do if s[j]=' ' then inc(p);
end
writeln(p);
end.