Комментарии к коду

[ЮляЮлия]

Здравствуйте! помогите пожалуйста разобраться с частью кода. Закомментируйте кто-нибудь пожалуйста!

Var comu:string;
      s_or_f:text;
      k:integer;


Function Unix_num (comu:string):integer;
const inp:array[1..9] of string[6] = ('ls', 'dircmp', 'tr', 'comm', 'rmdir', 'cat', 'mv', 'man', 'exit');
var f:boolean; i:integer;
Begin 
f:=False;
for i:=1 to 9 do
if (Copy(comu,1,Pos(' ',comu)-1)=inp[i]) or (comu=inp[i]) then
begin
f:=True;
Break;
end;
if not f then i:=11;
Unix_num:=i;
End;

[ЮляЮлия]

если кому нужно,могу скинуть полный код программы может так полегче будет.

[ZX Spectrum-128]

Ну, процедура по передаваемой ей строке должна выдать номер одной из команд unix'a или 11 в случае несовпадения.