Добрый день, информатика, два задания, заранее

Программа с массивом (хотя он тут и не нужен):
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

N = int(input('Введите N: '))

A = int(input('Введите A: '))

B = int(input('Введите B: '))

C = int(input('Введите C: '))

floors_A = abs(N - A)

floors_B = abs(N - B)

floors_C = abs(N - C)

if floors_A != floors_B and floors_B != floors_C and floors_C != floors_A:

   min_floors = floors_A

   elevator = 'A'

   if floors_B < min_floors:

       min_floors = floors_B

       elevator = 'B'

   if floors_C < min_floors:

       min_floors = floors_C

       elevator = 'C'

elif floors_A == floors_B or floors_A == floors_C:

   if floors_A == floors_B:

       if floors_A <= floors_C:

           elevator = 'A'

       else:

           elevator = 'C'

   if floors_A == floors_C:

       if floors_A <= floors_B:

           elevator = 'A'

       else:

           elevator = 'B'

elif floors_B == floors_C:

   if floors_B < floors_A:

       if B > C:

           elevator = 'B'

       else:

           elevator = 'C'

   else:

       elevator = 'A'

else:

   elevator = 'A'