Неверно указан тип при вводе исходных данных.

uses pt4;
 var b:array[1..10,1..10] of real;
i,j,m,n,k:integer;
begin
  Task('Matrix7');
 read(m);
read(n);
read(k);
for i:=1 to m do
for j:=1 to n do
begin
read(b[i,j]);
end;
for i:=1 to m do
begin
for j:=1 to n do
 write(b[i,j]);
writeln;end;
for i:=1 to m do
begin
for j:=1 to n do
  if i=k then write(b[i,j]);
writeln;end;
end.

var b:array[1..10,1..10] of real;

var b:matrix; //или как в модуле написано

uses crt;
const nmax=10;
var b:array[1..nmax,1..nmax] of real;
    i,j,m,n,k:integer;
begin
 // Task('Matrix7');
 //пользователь не должен видеть тупо пустой экран
 //он должен получить подсказки что ему вводить
 //и какие значения
 repeat
 write('Количество строк до ',nmax,' m=');
 read(m);
 until m in [1..nmax];
 repeat
 write('Количество столбцов до ',nmax,' m=');
 read(n);
 until n in [1..nmax];
writeln('Введите элементы матрицы, действительные числа:');
for i:=1 to m do
for j:=1 to n do
read(b[i,j]);
clrscr;
//нужно знать что это за штука на экран вылезла
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(b[i,j]:5:2); //нужно какие-то просветы между числами сделать
  writeln;
 end;
repeat
write('Введите номер строки от 1 до ',m,' k=');
read(k);
until k in [1..m];
writeln('Элементы строки ',k);
for j:=1 to n do
write(b[k,j]:0:2,' ');
end.

uses pt4;
 var b:array[1..10,1..10] of real;
i,j,m,n,k:integer;
begin
  Task('Matrix7');
  readln(m);
  readln(n);
  for i:=1 to m do
    for j:=1 to n do
      readln(b[i,j]);
  readln(k);
 
  for j:=1 to n do
    write(b[k,j]);
  writeln;
end.