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

Не где-то так, а именно так и есть. Только надо вывод на экран еще сделать и поточнее расписать:

var
smin, smax, s: Real;
jmin, jmax, j, i: Integer;
....описать матрицу и свои переменные

begin
....
Дописать строки ввода значений в матрицу
и вывести ее на экран
....

smin := A [1, 1];
smax := smin;
jmin := 1;
jmax := 1;
for j := 1 to N do begin
s := 0;
for i := 1 to N do s := s + A [ i, j ];
if s > smax then begin
smax := s;
jmax := j;
end;
if s < smin then begin
smin := s;
jmin := j;
end;
end;
....
Вывести на экран минимальный и максимальный значения массива и их строки
....

end.

Вот так будет точно все.

var
smin, smax, s: Real;
jmin, jmax, j, i: Integer;
begin
smin := A [1, 1];
smax := smin;
jmin := 1;
jmax := 1;
for j := 1 to N do begin
s := 0;
for i := 1 to N do s := s + A [ i, j ];
if s > smax then begin
smax := s;
jmax := j;
end;
if s < smin then begin
smin := s;
jmin := j;
end;
end;
end.

Где-то так. Ввод-вывод сами сделаете