Көшіру немесе жыл жыту кезінде объектілерді не үшін бөліп алу керек?​

// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var c1:=ReadlnChar('Введите первый символ:');
  var c2:=ReadlnChar('Введите второй символ:');
  Print(c1);
  if c1>c2 then Print('>')
  else
    if c1=c2 then Print('=')
    else print('<');
  Println(c2)
end.

Примеры
Введите первый символ: a
Введите второй символ: b
a < b

Введите первый символ: d
Введите второй символ: d
d = d

Введите первый символ: z
Введите второй символ: m
z > m

Введите первый символ: q
Введите второй символ: Q
q > Q

Const n=8;
var x : array[1..n] of real;
   i : integer; min : real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  x[i]:=20*random-10;
  write(x[i]:6:2,' ');     
 end;
 writeln;
min:=x[1];
for i:=2 to n do
 if x[i] < min then min:=x[i];
writeln('min=',min:6:2);
for i:=1 to n do
 if x[i]<0 then x[i]:=min;
writeln('Измененный массив:');
for i:=1 to n do write(x[i]:6:2,' ');
end.

Пример:
Исходный массив:
 -7.84  -9.97   7.00  -8.26  -7.71  -3.88   7.59  -2.32 
min= -9.97
Измененный массив:
 -9.97  -9.97   7.00  -9.97  -9.97  -9.97   7.59  -9.97