Заменить нулевые диагональные элементы единицами. - Pascal

Формулировка задачи:

Помогите мне пл сделать расчетку и 9лаб! Расчетка 1. 1.26 1.7 [-7;7] 2.10 3.10 [-13;3] 4.4 1.26. Заданы два вещественных массива и . Сформировать массив , в который включить из массива элементы, превышающие среднее арифметическое значение массива , а из массива - элементы, превышающие среднее арифметическое значение массива . 1.7. В начале массива X расположить в исходном относительном порядке все положительные, затем - все нулевые, а потом - все отрицательные элементы массива. 2.10. Нулевые элементы каждого столбца прямоугольной матрицы переместить в начало этого же столбца, сохранив без изменения последовательность расположения остальных его элемен-тов. 3.10. Создать процеду¬ру, которая заменяет нулевые диагональные элементы единицами. Вы¬вести на экран исходные и результирующие матрицы. 4.4. Для записи слов используются только большие буквы латинского алфавита. Преобразовать строку, заменив каждую букву ее двухзначным номером в алфавите. Для пробела использовать значение '00'. Например, для строки 'HTREK ESAB UYTR' получим '0820180511000005190102000021252018' .

Решение задачи: «Заменить нулевые диагональные элементы единицами.»

Листинг программы

uses crt;
var
   x:array[1..5,1..7] of integer;
   i,j,r:integer;
begin
clrscr;
writeln('Г€Г±ГµГ®Г¤Г*Г*Гї Г¬Г*ГІГ°ГЁГ¶Г*');
randomize;
for i:=1 to 5 do
 begin
  for j:=1 to 7 do
   begin
    x[i,j]:=random(17)-13;
    write(x[i,j]:4);
   end;
  writeln;
 end;
writeln('ГЏГ®Г±Г«ГҐ Г±Г®Г°ГІГЁГ°Г®ГўГЄГЁ');
for i:=1 to 5 do
 for j:=1 to 7 do
  if (x[i,j]=0) then
   begin
    r:=x[i,j];
    x[i,j]:=x[1,j];
    x[1,j]:=r;
   end;
for i:=1 to 5 do
 begin
  for j:=1 to 7 do
   write(x[i,j]:4);
  writeln;
 end;
readln
end.

Объяснение кода листинга программы

Объединение единиц с единицами в одно целое (массив).
Заполнение массива случайными числами от -13 до 16.
Вывод содержимого массива на экран.
Проверка каждого элемента массива на нулевое значение.
Если элемент равен нулю, то меняется на единицу, сдвигаясь вправо на одну позицию.
Вывод содержимого массива на экран.
Ввод информации от пользователя для завершения работы программы.