Пожалуйста,напишите ПОЛНОСТЬЮ задачку на Pascal

Отпечатайте с соответствующим заголовком в два столбца элементы 1-й и 4-й строк матрицы А

var  b : array [,] of real;  i, k, m : integer;begin  while m < 4 do begin   write('Введите размер матрицы (>3): ');    readln(m);  end;  b := new real[m,m];  for i := 0 to m-1 do begin    for k:= 0 to m-1 do begin      read(b[i,k]);    end;  end;  writeln();  write('Cтрока 1: '); write(Chr(9)); writeln('Cтрока 4:');  for i:= 0 to m-1 do begin    writeln(b[0,i], Chr(9), Chr(9), b[3,i]);   end;end.матрицу желательно вводить построчно и с пробелом между элементамиписалось в PascalABC.NET