Заменить элементы, значение которых меньше десяти, на первый элемент массива

Uses Crt;
Type Mas = array [1..14] of integer;      
 Var  G : Mas;              
      i:integer;         
        
Begin
Randomize;
For i:=1 to 14 do begin
      G[i]:=random(42)-21;  
      Write(G[i]:4);                
      End;

uses crt;
const m = 14;
type mas = array [1..m] of integer;
var g: Mas;
    i, t, p: integer;
    b: boolean;
begin
  randomize;
  writeln('Исходный массив:');
  for i := 1 to m do
    begin
      g[i]:=random(42)-21;
      write(g[i]:4)
    end;
  writeln;
  t := g[1];
  if t < 10 then p := 2 else p := 1;
  b := false;
  for i := p to m do
    begin
      if g[i] < 10 then g[i] := t;
      b := true
    end;
  if b
    then begin
      writeln('Элементы массива, меньшие 10, заменены на первый элемент:');
      for i := 1 to m do write(g[i]:4);
      writeln
    end
    else begin
      write('В массиве нет элементов, меньших 10');
      if p = 2
        then writeln(', кроме первого')
        else writeln
    end;
  if g[1] = 0
    then write('Перестановка не требуется, минимальный и первый нулевой элементы совпадают')
    else write('Перестановка невозможна, массив не содержит нулевых элементов');
  readln
end.