Из слова вирус путем замены его букв получить слово фокус(код нужен на пайтоне)

Const m=4; n=5; var  a: array[1..m,1..n] of real; i,j: integer; max: real; begin randomize; writeln('исходный массив: '); for i: =1 to m do   begin   for j: =1 to n do   begin     a[i,j]: =random(10);     write(a[i,j]: 5: 1);   end;   writeln;   end; max: =a[1,1]; for i: =1 to m do   for j: =1 to n do   if a[i,j]> max then max: =a[i,j]; writeln('max = ',max); for i: =1 to m do   for j: =1 to n do   if a[i,j]=max then a[i,j]: =a[i,j]/2; writeln('полученный массив: '); for i: =1 to m do   begin   for j: =1 to n do write(a[i,j]: 5: 1);   writeln;   end; end. пример: исходный массив:   1.0   9.0   1.0   9.0   8.0   4.0   4.0   5.0   9.0   9.0   6.0   3.0   6.0   0.0   6.0   6.0   7.0   3.0   6.0   9.0 max = 9 полученный массив:   1.0   4.5   1.0   4.5   8.0   4.0   4.0   5.0   4.5   4.5   6.0   3.0   6.0   0.0   6.0   6.0   7.0   3.0   6.0   4.5

program massiv;

var b: array[1..100]of integer;

r,n,m,i,p,k,a: integer;

begin

randomize; writeln ('a='); readln(a);

writeln('n='); readln(n);

for i: =1 to n do begin

b[i]: =random(50)-25;

writeln('a[',i,']=');

if b[i]> 0 then begin r: =r+b[i]; p: =r*2;

if b[i]> a then k: =k+1;

if ((b[i]< a)and(b[i]> 0)) then m: =m+1;

end; end; writeln('удвоенная сумма положительных элементов ',p);

writeln('kол-во элементов массива , значения которых больше заданного числа',k);

writeln('количество положительных элементов не превсходящих заданного числа',m);

end.