Подскажите чего не хватает в программе

Program laba3;
const
n=5;
m=3;
var
b:array[1..n,1..m] of real;
i,j,imin,jmin:integer;
min:real;
begin
for i:=1 to n do
for j:=1 to m do
begin
writeln('b[',i,',',j,']');
readln(b[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to m do
writeln(b[i,j]:3:0,'  ');
writeln;
end;
i:=т;
min:=b[1,1];
for i:=1 to n do
for j:=1 to m do
begin
if b[i,j]<min then
begin
min:=b[i,j];
imin:=i;
jmin:=j;
end;end;
writeln('min:=',min:5:2);
end.

const n=3;
      m=5;
var b:array[1..n,1..m] of real;
    i,j,imin:integer;
    min:real;
begin
for i:=1 to n do
for j:=1 to m do
 begin
  write('b[',i,',',j,']=');
  readln(b[i,j]);
 end;
for i:=1 to n do
 begin
  for j:=1 to m do
  write(b[i,j]:6:2);
  writeln;
 end;
min:=b[1,1];
imin:=1;
for i:=1 to n do
for j:=1 to m do
if b[i,j]<min then
 begin
  min:=b[i,j];
  imin:=i;
 end;
writeln('min=',min:0:2,' расположен в строке ',imin);
end.