Написать программу на pascal: дана матрица b состоящая из целых чисел получить матрицу r значения которой равны удвоенным значениям матрицы b

Uses crt; var b: array[1..100,1..100] of integer;         r: array[1..100,1..100] of integer; str,stb,i,j: integer; begin randomize; clrscr; writeln('введите количество строк :   '); read(str); writeln('введите количество столбцов:   '); readln(stb); writeln; writeln('matrica b'); for i: =1 to str do begin for j: =1 to stb do begin b[i,j]: =random(30)+1; r[i,j]: =2*b[i,j]; write(b[i,j]: 3,'   '); end; writeln; end; writeln; writeln('matrica r'); for i: =1 to str do  begin for j: =1 to stb do begin write(r[i,j]: 3,'   '); end; writeln; end; readln; end.запускаем , и первом делом создаём двухмерный массив введя числа(когда программа запросит) не превышающий числа 100   (строки и столбцы) после как мы ввели числа создается массив заполняя массив случайными числами в диапазоне 1..30.. и выводим массив b, после удваиваем каждый элемент и заносим удвоенный результат в r, и тоже выводим

ВОТ , вроде то что надо.....