Задать произвольный текст. Заменить в тексте часть ''дом'' на ''род'' По образцу Замените цифру 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.

var
s:real;
flag,d,m:integer;
begin     
      s:=10; d:=1;
          while s<=100 do             
               begin                 
                  writeln('d: ',d,'   s: ',s);  {эта строка не обязательна, выводит на экран ежедневный пробег, как бы для контроля}         
                      s:=s+s*0.1;                   
                      d:=d+1;                       
                            if s<20 then                           
                                  flag:=d;             
                end;
      writeln('> 20 km :', flag+1,'    day');
      writeln('>100 km : ',d);
end.

Const
  nm = 20;
  nn = 20;
var
  a: array[1..nm, 1..nn] of integer;
  b: array[1..nm] of integer;
  i, j, m, n, mina: integer;

begin
  Write('Введите число строк и столбцов массива: '); Readln(m,n);
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:4)
    end;
    Writeln
  end;
 
  for i:=1 to m do
  begin
    mina:=32767;
    for j:=1 to n do if mina>a[i,j] then mina:=a[i,j];
    b[i]:=mina
  end;
 
  Writeln('Сформированный массив');
  for i:=1 to m do Write(b[i]:4);
  Writeln
end.

Тестовое решение:
Введите число строк и столбцов массива: 6 5
Исходный массив
  46 -32  -6  20  36
  -2 -41 -10 -42  26
 -33  16 -25   9  46
 -36  20 -50  36 -37
 -41  16  34  -8   9
  38 -36 -14 -18 -33
Сформированный массив
 -32 -42 -33 -50 -41 -36