Помогите составить программу на паскале пожалуйста.

найти максимальный элемент каждой строки двумерного массива и его индексы.
у меня так, но не правильно что-то

program n1;
uses crt;
var a:array [1..100,1..100] of integer;
n,m,i,j,max,k,p: integer;
begin
clrscr;
randomize;
writeln ('введите кол-во строк');
readln (n);
writeln ('введите кол-во столбов');
readln (m);
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:= random (30)-15;
write (a[i,j]:5);
end;
writeln;
end;

max:= a[1,1];
for i:=1 to n do begin
for i:=1 to m do begin
if a[i,j]>max then
begin
max:= a[i,j];
k:=i;
p:=j;
end;
end;
writeln ('max= ', max);
writeln ('строка ', k);
writeln ('столб ', p);
end;
readkey;
end.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.