Создать текстовой массив в Паскале

[Novenkaja]

Добрый вечер.
Нужна ваша помощь.Эти задания нужны мне сегодня,чем скорее,тем лучше)
т.к.заданий будет 3,кидать буду по одному,чтобы никто не запутался в условиях и кодах.

Первое задание

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



этот массив с 20 элементами и числовой,а можно ли его как-нибудь переделать в тот,который нужен по заданию?
здесь как я понимаю должно теперь быть так-type mas=array[1..15] of integer

program marts_31;
uses crt;
type mas=array[1..20] of real;
var x,y,z:real;
    i,j,min,imin:integer;
    k,l,m:mas;
begin
clrscr;
     randomize;
     for i:=1 to 20 do
     begin
        k[i]:=(random(10)*0.1);
        write (k[i]:6:1);
     end;
     writeln;

     for i:=1 to 20 do
     begin
        if ((trunc(k[i]*10) mod 2) = 0) then l[i]:=(trunc(k[i]*10));
        if l[i]<>0 then write (l[i]:6:0);
     end;
     writeln;

     for i:=1 to 20 do
     begin
        if ((trunc(k[i]*10) mod 2) <> 0) then m[i]:=(trunc(k[i]*10));
        if m[i]<>0 then write (m[i]:6:0);
     end;
     writeln;
     writeln(' ');
     writeln;

     readln;
end.

[New man]

Как вариант:

program stroki;
type mas1:array [1..15]of string;
       mas2: array [1..15]of byte;
var i,j:integer;
   ArrStr:mas1;ArrC:maas2;
begin
 for i:= 1 to 15 do
  begin
    readln(ArrStr[i]);
    ArrC[i]:=0;
    for j:=1 to length(ArrStr[i]) do
        if ArrStr[i][j]in['a'..'z','а'..'я'] then inc(ArrC[i]);
  end;
  for i:= 1 to 15 do
    writeln('V',i,'  stolbe:  ',ArrC[i], 'melochnih  bukv');
readln;
end.

[Novenkaja]

сейчас попробую

[Novenkaja]

New man

у меня вопросы:

1-что означает ArrC ?

2-как изменить код,чтобы эти 15 элементов вводились с клавиатуры? т.е. в каком месте надо написать write('введите ....') и readln и readln какой переменной?

и 3-в задании сказано,что с клавиатуры вводится 15 элементов,не содержащих точки и запятые,а если я допутсим введу солны..шко,,светит... с запятыми и точками,то он в ране всё равно считает сколько маленьких букв.а разве в таком случае он не должен выдавать ноль??? а то теперь я что-то не очень понимаю эту часть условия

и что означает эта строка - if ArrStr[i][j]in['a'..'z','а'..'я'] then inc(ArrC[i]); ??? не могу понять