Двумерный массив в паскале.

[Beto4ka]

Плиз проверьте задачку, написала программу в паскале по массиву, но программа не идёт(
Условие: Считать из файла данный двумерный массив, если известно заданное количество строк и столбцов. В заданной строке найти максимальный элемент и его положение.

вот программа:
program a;
var p,n,m,max,i,j:integer;
t:text;
b:array [1..10,1..10] of integer;
begin
writeln('n');
read(n);
writeln('m');
read(m);
writeln('p');
read(p);
max:=b[p,1];
assign(t,'file.txt');
reset(t);
for i:=1 to n do
for j:=1 to m do
readln(t,b[i,j]);
for j:=p to m do
begin
if max<b[p,j] then max:=b[p,j];
end;
writeln('max= ',max);
close(t);
end.

Всё время выдаёт нули, подскажите, что не так?

[Greblin]

max:=b[p,1];

массив ещё не заполнен, а Вы уже из него читаете

for j:=p to m do

Ну почему же с p? С единицы надо начинать
После того, как это исправите, положению, думаю, найти сможете