Задать произвольный текст. Заменить в тексте часть ''дом'' на ''род'' По образцу Замените цифру 2 на слово дом, а слово два на слово род.
И чтобы в окне вывода при написании слова дом, оно менялось на слово род.
var st: string;
i: integer;
begin
writeln('Введите строку');
readln(st);
i := 1;
while i <= length(st) do
begin
if (st[i] = '2') then
begin
//замена символов
delete(st, i, 1);
insert('два', st, i);
end;
//переход к следующему символу
i := i + 1;
end;
writeln('Преобразованная строка:');
writeln(st);
end.

Для решения всех задач используется формула S = v*t, где S - объем файла, v - скорость передачи файла, t - время передачи.
1. 
4 Мбайта = 4*1024 Кбайт = 4096 Кбайт
S1 = v*t1, S2 = v*t2
S2 = (S1/t1)*t2 = (4096/100)*75 = 3072 Кбайт

2.
8 Мбайт = 8*1024 Кбайт = 8192 Кбайт
S1 = v*t1, S2 = v*t2
S2 = (S1/t1)*t2 = (8192/100)*25 = 2048 Кбайт

3.
15 Кбайт = 15*1024 байт = 15*1024*8 бит
S = v1*t1, S = v2*t2
v1 = S/t1, v2 = v1+512 = S/t1+512 = 15*1024*8/120+512 = 1536
t2 = S/v2 = 15*1024*8/1536 = 80 c

4.
S1 = v*t1, S2 = v*t2
2 мин = 120 с
t2 = S2/v = S2/(S1/t1) = 4/(3/120) = 160 с

5.
3 Мбайта = 3*1024 Кбайт = 3072 Кбайт
S1 = v*t1, S2 = v*t2
S2 = (S1/t1)*t2 = (3072/60)*40 = 2048 Кбайт

Const n=10;
var 
  a,b:array [1..n] of integer;
  i,min1,min2,k:integer;
begin
  randomize;
  For i:=1 to n do begin
    a[i]:=random(10);    
    b[i]:=random(10);
  end;
  writeln (a);
  writeln (b);
  writeln;
  min1:=1000;
  min2:=1000;
  For i:=1 to n do begin
    if a[i]<min1 then min1:=a[i];
    if b[i]<min2 then begin min2:=b[i]; k:=i end;
  end;
  if k<n 
    then begin 
      b[k+1]:=min1; 
      writeln (a);
      writeln (b);
    end
    else writeln ('Минимальным является последний элемент');  
end.

Примеры:
1)
[4,5,2,2,7,3,8,6,8,6]
[5,5,2,2,3,7,9,9,4,1]

Минимальным является последний элемент

2)
[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,7,2,1,4,0,9]

[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,0,2,1,4,0,9]


PS: Менять N можно в описании константы