以“语文”为话题的记叙文

我认为，语文整一个垃圾！不如学编程，比如，语文老师看得懂下面的东东吗？
var tianpan,tian:array[0..20,1..20]of integer;

zong,m,n,k,i1,j1,i,j,l:integer;
procedure find;
var i,j,s1,s2:integer;
begin
s1:=1;s2:=1;
for i:= 1 to m do
for j:= 1 to n do
if (tianpan[i,j]<>0)and(tian[i,j]>tian[s1,s2])then begin s1:=i;s2:=j;end;
i1:=s1;j1:=s2;
end;

begin
readln(m,n,k);
for i:= 1 to m do
begin
for j:= 1 to n do
begin tianpan[i,j]:=1;read(tian[i,j]);end;
readln;
end;
find;j:=j1;i:=i1;
k:=k-j;zong:=0;
zong:=zong+tian[i,j];tianpan[i,j]:=0;
find;
while (abs(j1-j)+abs(i1-i)+1+j1<k) do
begin
k:=k-abs(j1-j)-abs(i1-i)-1;
zong:=zong+tian[i1,j1];
tianpan[i1,j1]:=0;
i:=i1;j:=j1;
find;
end;
write(zong);
readln;
end.（我写的，但通不过，高手检查一下）
但是电脑老师一定看得懂中文！