Сформировать матрицу путем ввода с клавиатуры и с помощью ГСЧ - Turbo Pascal

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

Не могу вывести измененный массив

                    Листинг программы
                
 
                        
                          
                    
program g;
uses crt;
var
z:array[1..10,1..10] of real;
n,m,i,j:integer;
s:real;
begin
randomize;
clrscr;
write('колличество строк-');
readln(n);
write('колличество стобцов-');
readln(m);
for i:=1 to n do
for j:=1 to m do
z[i,j]:= int (random*30-15);
writeln;
writeln('матрица a');
for i:=1 to n do
begin
for j:=1 to m do
write(z[i,j]:4:0);
writeln
end;
readln;
s:=4;
read(z[i,j]);
if i=4 then z[i,j]:=4;
for j:=1 to 7 do
begin
s:=z[1,j];
z[1,j]:=z[3,j];
z[3,j]:=s;
for i:=1 to n do 
write(z[i,j]:4:0);
s:=7;
readln(z[i,j]);
end;
end.

Решение задачи: «Сформировать матрицу путем ввода с клавиатуры и с помощью ГСЧ»

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

program g;
uses crt;
const m=4;
      n=7;
var z:array[1..m,1..n] of real;
    w,i,j:integer;
    s:real;
begin
randomize;
clrscr;
writeln('Выберите способ заполнения массива');
writeln('1-ввод с клавиатуры');
writeln('2-случайным образом');
repeat
readln(w);
until w in [1,2];
case w of
1:for i:=1 to m do
  for j:=1 to n do
   begin
    write('z[',i,',',j,']=');
    readln(z[i,j]);
   end;
2:for i:=1 to m do
  for j:=1 to n do
  z[i,j]:=-15+random*30;
end;
clrscr;;
writeln('Исходный массив Z');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(z[i,j]:6:1);
  writeln
 end;
for j:=1 to n do
 begin
  s:=z[1,j];
  z[1,j]:=z[3,j];
  z[3,j]:=s;
 end;
writeln('Обмен 1 и 3 строк');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(z[i,j]:6:1);
  writeln
 end;
readln
end.

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

Этот код на языке Turbo Pascal представляет собой программу для формирования матрицы с помощью ввода с клавиатуры или случайным образом. В начале программы объявляются необходимые переменные: m (количество строк) и n (количество столбцов) массива z, а также переменные w, i и j для работы с индексами. Затем происходит инициализация генератора случайных чисел и очистка экрана. Далее выводится предложение для выбора способа заполнения массива, и пользователь приглашается ввести свой выбор с помощью функции readln. В зависимости от выбранного способа заполнения массива выполняется соответствующий код. Если выбран способ ввода с клавиатуры, то происходит последовательный запрос значений для каждой ячейки массива и их сохранение в массиве. Если выбран способ случайного заполнения, то каждая ячейка массива присваивается случайное число в диапазоне от -15 до 15. После этого происходит вывод исходного массива z с помощью цикла for и функции write. Затем выполняется обмен значениями в двух строках массива с помощью циклов for и переменной s. В конце программы выводится приглашение на ввод с клавиатуры и происходит очистка экрана.