Составьте программу подсчета количества слов мама в строке. pascal abc

Var x:string;
i,y,z:longint;
begin
readln(x);
y:=length(x);
for I:=4 to y do
begin
if (x[i-3]='м') and (x[i-2]='а') and (x[i-1]='м') and (x[i]='а') then z:=z+1;
end;
write(z)
end.

program Proizv;

const

 Di =  8;    // размерность массива, можно менять на любое другое  строки

 Dj = 10;      // а здесь столбцы

var

 A: array [1..Di, 1..Dj] of Integer;

 i, j, p: Integer;

begin

 Randomize;

 for i := 1 to Di do begin

   WriteLn;

   for j := 1 to Dj do begin

     A [i, j] := Random (21) - 3;

     Write (A [i, j] :3, ' ');

   end;

 end;

 p := 1;

 for i := 1 to Di do begin

   if i mod 2 = 0 then          // если строка четная то пропускаем

     Continue;

   for j := 1 to Dj do begin

     if A [i, j] < 0 then       // перемножаем только отрицательные значения

       p := p * A [i, j];

   end;

 end;

 WriteLn;

 WriteLn ('Произведение = ', p);

 ReadLn;

end.

Объяснение:

для упрощения считаем, что хотя бы одно требуемое число будет найдено. Если таких чисел найдено не будет, то результат произведения будет равен 1.

Program zadacha;
uses crt;
var a, i: integer;
z: real;
h: array [1..5] of integer;
begin
clrscr;
write ('vvedite chislo A: ');
readln (a);
for i:=1 to 5 do begin
write ('vvedite elemeny massiva H: ');
readln (h[i]);
z:=sqrt(h[i]/a);
writeln ('H[i]=',h[i], ' Z=', z:0:4);
end;
readkey;
end.

или 

program zadacha;
uses crt;
var a, i: integer;
z: real;
h: array [1..5] of integer;
begin
clrscr;
write ('vvedite chislo A: ');
readln (a);
for i:=1 to 5 do begin
write ('vvedite elemeny massiva H: ');
readln (h[i]);
end;
for i:=1 to 5 do begin
z:=sqrt(h[i]/a);
writeln ('H[', i, ']=',h[i], ' Z=', z:0:4);
end;
readkey;
end.