посоветуйте с массивами в паскале

[UberStas]

у меня проблемма: есть массив из 10 строк (текстовых предложений), для всех строк есть единое условие: все строки состоят из слов с пробелами и необходимо определить количество слов из 4-х букв во всем массиве. Подскажите как мне обратиться к массиву вцелом (не к каждой строке отдельно), чтобы выбрать количество 4-х буквенных слов всего массива.
Помогите пожалуйста!!!! Ну очень нужно и срочно!!!

[Snoopy]

Если тебе на Делфях надо посмотри вот тут
http://programmersforum.ru/showthread.php?t=17653
а в часности обрати внимание на то что Stilet предлажил!!!

[puporev]

Можно решить например так:

uses crt;
const n=10;
var a:array[1..n] of string;
    i,j,t,k,p:integer;
begin
clrscr;
for i:=1 to n do
  begin
  write('Str ',i,':');//заполняем массив
  readln(a[i]);
  end;
k:=0;
for i:=1 to n do
  begin
    a[i]:=a[i]+' ';p:=0;//к каждой строке добавляем пробел в конце
    while pos(' ',a[i])>0 do
        begin
         t:=pos(' ',a[i])-1;//определяем длину слова
         if t=4 then p:=p+1; //если 4, считаем
         delete(a[i],1,pos(' ',a[i]));//удаляем это слово
        end;
    k:=k+p;//считаем слова из 4 букв во всем массиве
  end;
writeln;
writeln('Slov iz 4 bukv=',k);
readln
end.

[UberStas]

Спасибо! Очень помог!