Please help дан массив строк. найдите количество маленьких латинских букв во всех строках массива. размер массива задан константой n. используйте заголовок: function calc(m : tmas): integer;

Const n=4;
type Tmas=array[1..n] of string;
var s:Tmas; i:integer;
function calc(m :Tmas):integer;
var k,i,j:integer;
begin
k:=0;
for i:=1 to n do
 for j:=1 to length(m[i]) do
  if m[i][j] in ['a'..'z'] then k:=k+1;
calc:=k;
end;
begin
for i:=1 to n do readln(s[i]);
writeln('Количество маленьких латинских букв = ',calc(s));
end.

Пример:
Program p1;
Begin
Writeln(2+3);
End.
Количество маленьких латинских букв = 19