橱窗 协议

program ex8_4(input,output);
const max=100;
var
f,v,i,j,k,cmax,current,max_val:integer;
table,val:array[1..max,1..max] of integer;
fname:string;
fin:text;

procedure print(current,max_val:integer);
var i:integer;
begin
if current>0 then
begin
i:=current;
while val[current,i]<>max_val do i:=i+1;
print(current-1,max_val-table[current,i]);
write(i,' ')
end
end;

begin
write('Input the filename of test data:');
readln(fname);
assign(fin,fname);
reset(fin);
readln(fin,f,v);
for i:=1 to f do
begin
for j:=1 to v do read(fin,table[i,j]);
readln(fin);
end;
close(fin);
max_val:=-maxint;
for i:=1 to v do
if max_val<table[1,i]
then begin val[1,i]:=table[1,i];max_val:=table[1,i] end
else val[1,i]:=table[1,i];
for i:=2 to f do
for j: