я могу предоставить общую идею алгоритма.

Можно использовать OnVector для создания массива символов, а затем заполнить его буквами слова МАМА. Например:

var

word: array[1..4] of char;

i: integer;

begin

word[1] := 'М';

word[2] := 'А';

word[3] := 'М';

word[4] := 'А';

for i := 1 to 4 do

write(word[i]);

end.

Этот код создает массив символов размером 4 и заполняет его буквами слова МАМА. Затем он использует цикл for для вывода каждого символа на экран.