Работа с массивами. Опции

[LightStorm]

Всем привет. У меня проблема с Паскалем.

Дан символьный массив подсчетать сколько подряд идет пробелов.

Я написал... Но у меня не работает. Помогите.

Код

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.

Про теги [ code] и [ /code] не забываем...

Сообщение отредактировано: volvo - 15.01.2005 13:49