关于PASCAL语言的问题

有3道题1. 在n行m列的矩阵中，输入n（行数）和m（列数），再输入每行的数，每行中选一个最大的数相加，输出这几个数的和 2.输入m吨车的载重量，现在一共有盐6吨 2000元一吨，糖3吨 10000元一吨，米5吨 4000元一吨，给出装车方案 使装车的钱多 3.m个人，输入每个人的等待时间，使总等待时间最短，并输出总等待时间，和从小到大的顺序

第一题
{R-}
var s,n,m,now,i,j:longint;
a:array[0..100,0..100]of integer;
begin
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do
read(a[n,m]);
readln;
now:=maxlongint;
for j:=1 to m do
if a[n,m]>now then now:=a[n,m];
s:=s+now;
end;
writeln(s);
end.

第二题

var a,m,tang,mi,yan,i,x,xx,xxx,s:integer;
begin
readln(m);tang{糖}:=3;yan{盐}:=6;mi{米}:=5;
for i:=1 to m do
begin
readln(a);
s:=s+a;
end;
x:=0;xx:=0;xxx:=0;
while s<>0 do
begin
if s>=tang then
begin
tang:=0;
x:=3;
s:=s-3;
if s>=mi then
begin
s:=s-mi;
xx:=5;
if s>=yan then
begin
s:=s-yan;
xxx:=yan;
end
else
begin
xxx:=s;
s:=0;
emd;
end
else
begin
xx:=s;s:=0;
end;
end
else
begin
x:=s;