адача в delphi7

[madman797]

что нужно добавить в эту функцию , что-бы при нажатии на клавишу D считалась диагональ ???надеюсь на вашу помощь

function summa (t:integer):integer;
var s,i:integer;
begin s:=0;
if n<=m then
for i:= to n-1 do
s:=s+a[i;i];
else for i:=0 to m-1 do
s:=s+a[i;i];
result:=s end;

[Ghost of Night]

обработку нажатия клавиши...
P.S. Код оформлять нужно