Программирование, delphi. 1, вроде, код написала, но работает неисправно. где ошибка? и желательно исправленный код.

Анастасия, Вам нужно поменять местами строки 60 и 61. Сейчас программа ищет только одну пару чисел, а по условию нужно выводить их все, т.к. вывод сообщения в Memo1 произойдет только после прохода двух циклов for (для параметров i и j)

Если хотите улучшить программу: можно добавить проверку на тот случай, если ни одной подходящей пары не будет найдено.

Можно еще в StringGrid'е оставить одну строку, т.к. остальные не используются, за это отвечает свойство RowCount

Мемо1 в начале процедуры желательно очистить от сообщений, Memo1.Lines.Clear; если только Вы не хотите хранить всю историю работы программы.

Объяснение:

Что тут расшифровывать то? 
1)Процессор Intel Pentium с тактовой частотой 3.4GHz, объем оперативной памяти 2Гб, внешний накопитель на 300Гб, видеокарта GeForce 7600GS с видеопамятью 256 Мб, есть слот для дисков DVD±RW, наличие звуковой карты, наличие порта для интернета, блок питания на 430В.
2)Процессор Intel Celeron с тактовой частотой 3.1GHz, 512Мб оперативной памяти, 200Гб внешнего накопителя, видеокарта GeForce 7300LE, FDD вероятнее всего HDD(устройство внешней памяти), наличие инструмента для чтения дисков DVD, наличие звуковой карты, возможность подключение к интернету по проводу, блок питания на 350В

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

begin
  var a:=ReadArrReal(10);
  Write('В строку: '); a.Println;
  Writeln('В столбец:');  a.PrintLines
end.

Пример
7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1 -6.3
В строку: 7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1 -6.3
В столбец:
7.6
-4.4
-7.2
-4.4
2.2
-3.1
9.6
8.9
-7.1
-6.3



begin
  var a:=ReadMatrReal(3,3); a.Println(7,2); Writeln;
  a.Transform(t->2*t); a.Println(7,2)
end.

Пример
7.6 -4.4 -7.2 -4.4 2.2 -3.1 9.6 8.9 -7.1
   7.60  -4.40  -7.20
  -4.40   2.20  -3.10
   9.60   8.90  -7.10

  15.20  -8.80 -14.40
  -8.80   4.40  -6.20
  19.20  17.80 -14.20