Построить таблицу высказывание не (первая буква согласная) или ( последняя буква гласная) ложно для имени (кирилл, кристина , ирина александр )​

1)95877=10111011010000101 
решение:
95877/2= 47938(ост1)
47938/2=23968(ост0)
23968/2=11984(ост1)
11984/2=5992(ост0)
5992/2=2996(ост0)
2996/2=1498(ост0)
1498/2=749(ост0)
749/2=374(ост1)
374/2=187(ост0)
187/2=93(ост1)
93/2=46(ост1)
46/2=23(ост0)
23/2=11(ост1)
11/2=5(ост1)
5/2=2(ост1)
2/2=1(ост0)
1

2)147353=21111010112
решение :
147353/3=49117(ост2)
49117/3=16372(ост1)
16372/3=5457(ост1)
5457/3=1819(ост0)
1819/3=606(ост1)
606/3=202(ост0)
202/3=67(ост1)
67/3=22(ост1)
22/3=7(ост1)
7/3=2(ост1)
2

3)94649=10111000110111001
решение:
94649/2=47324(ост1)
47324/2=23662(ост0)
23662/2=11831(ост0)
11831/2=5915(ост1)
5915/2=2957(ост1)
2957/2=1478(ост1)
1478/2=739(ост0)
739/2=369(ост1)
369/2=184(ост1)
184/2=92(ост0)
92/2=46(ост0)
46/2=23(ост0)
23/2=11(ост1)
11/2=5(ост1)
5/2=2(ост1)
2/2=1(ост0)
1

Программа с массивом (хотя он тут и не нужен):
var a:array[1..60] of char;
st:string; i,p:integer;
begin
writeln('Введите массив символов:');
readln(st);
writeln('Вот массив:');
for i:=1 to length(st) do 
 begin
 a[i]:=st[i];
 write(a[i]);
 end;
writeln;
st:=' '+st+' ';
p:=pos(' mama ',st);
while p>0 do
 begin
 delete(st,p,6);
 insert(' ded ',st,p);
 p:=pos(' mama ',st);
 end;
writeln('Измененный массив:');
for i:=1 to length(st)-2 do 
 begin
 a[i]:=st[i+1];
 write(a[i]);
 end;
writeln;
end.

Пример:
Введите массив символов:
mama papa okno mama primer baba
Вот массив:
mama papa okno mama primer baba
Измененный массив:
ded papa okno ded primer baba