значение строк

program viendimensiju masшvs;
uses crt;
var a : array [1..50] of integer;
       n, i, imin : byte;
       min : integer;
begin
randomize;  
writeln('исходный массив:');
for i := 1 to 50 do
begin
a[i] := random(1000) - 500;
write(a[i]:6)
end;
writeln;  {поиск близкого к нулю отрицательного}
min := -10;
for i := 1 to 50 do
if a[i] < 0 then
if a[i] >= min then
begin
imin := i;
min := a[i]
end;
writeln('самый близкий к нулю отрицательный элемент - a[', imin, '] = ', min);
readln
end.

program viendimensiju masшvs;
uses crt;
var a : array [1..50] of integer;
       n, i, imin : byte;
       min : integer;
begin
randomize;  
writeln('исходный массив:');
for i := 1 to 50 do
begin
a[i] := random(1000) - 500;
write(a[i]:6)
end;
writeln;  {поиск близкого к нулю отрицательного}
min := -10;
for i := 1 to 50 do
if a[i] < 0 then
if a[i] >= min then
begin
imin := i;
min := a[i]
end;
writeln('самый близкий к нулю отрицательный элемент - a[', imin, '] = ', min);
readln
end.

program viendimensiju masшvs;  {имя программы, ошибка: недопустимое имя}
uses crt; {объявление об использовании модуля управления текстовым экраном, этот модуль для данной программы не требуется}
{объявление переменных}
var a : array [1..50] of integer; {массив a целого типа, индекс массива от 1 до 50}
       n, i, imin : byte; {n (не используется), счётчик, номер минимального элемента }
       min : integer; {значение минимального элемента}
begin {начало программы}
  randomize; {инициализация генератора случайных чисел}
  writeln('исходный массив:'); {вывод на дисплей: 'исходный массив:'}
    for i := 1 to 50 do {цикл формирования и печати массива}
      begin {начало цикла формирования и печати массива}
        a[i] := random(1000) - 500; {формирование элемента массива}
        write(a[i]:6) {печать элемента массива}
      end; {конец цикла формирования и печати массива}
  {замечание: массив в одну строку не поместится, что не есть гуд}
  writeln; {перевод на следующую строку}
  {поиск близкого к нулю отрицательного}
  min := -10; {неразумно, а вдруг все элементы < -10? Это алгоритмическая ошибка}
  for i := 1 to 50 do {цикл поиска близкого к нулю отрицательного}
    if a[i] < 0 {если элемент массива < 0}
      then {то}
        if a[i] >= min {если элемент массива > текущего минимального}
        {а если все a[i] < -10? Тогда что? Индекс imin не определён, min = -10... Хе-хе...}
          then {то}
            begin {начало}
              imin := i; {индекс текущего близкого к нулю приравнивается текущему счётчику}
              min := a[i] {минимум приравнивается текущему элементу}
            end; {конец}
  writeln('самый близкий к нулю отрицательный элемент - a[', imin, '] = ', min); {печать результата}
  {если все a[i] < -10 будет напечатано: 'самый близкий к нулю отрицательный элемент - a[0] = -10'. Брехня, однако...}
  readln {ожидание нажатия клавиши <Enter> перед закрытием программы}
end. {конец программы}