Составьте программу , которая заполняет массив а[1..8] случайными целыми числами в диапазоне от 10 до 20. замените все элементы массива меньше 15 их удвоенными значениями . вывести на экран первоначальный и преобразованный массивы в строку

Program programma; uses crt; var i,j,m, n, k: integer;       a: array [1..100, 1..100] of integer; begin clrscr;           randomize;           write('n = '); readln(n);           write('m = '); readln(m);           for i: =1 to n do                   begin                   for j: = 1 to m do                   a[i,j]: =random(50);           end;           writeln;           k: =0;           for i: =1 to n do           begin           for j: = 1 to m do           write(a[i,j]: 5);           writeln;           end;           for i: =1 to n do           begin           for j: = 1 to m-1 do                   if  (a[i,j]< =a[i,j+1]) then  k: =k+1;                   writeln;                   if (k=m-1) then writeln ('номер строки: ', i);                   k: =0;           end; end.