программа фотодиод

[сашка студентка]

помогите разобраться,что делает эта программа....я ноль в программировании(

program spectr_excitation_UM_2;
 uses Crt,Dos,Graph;
  var i,ii:integer;
      tt:longint;
      dd,dl:real;

         fi:string [8];
         fii:string [8];
         f:text;
         nm:array [1..1000] of longint;
         lum:array [1..1000] of longint;
         ll:array [1..1000] of longint;
         t:array [1..1000] of longint;
{=====================**з*«® Їа®Ја*¬¬л==========================}
begin
   port[$278]:=249;{бв®пвм}
   port[$27a]:=0;

   writeln('ўўҐ¤ЁвҐ Ё¬п ®Ўа*Ў*влў*Ґ¬®Ј® д*©«*');readln(fii);

   writeln('ўўҐ¤ЁвҐ Ё¬п д*©«*');readln(fi);

{===============================================================}
  assign(f,fii+'.txt');{ў д*©«Ґ ЇҐаўл© бв®«ЎҐж *¬,ўв®а®© ᮮ⢥вбвўгойЁ© и*Ј}
   reset(f);
     for ii:=1 to 1000 do
        begin
           read(f,nm[ii]);readln(f,lum[ii]);{бзЁвлў*Ґвбп «о¬Ё*ҐбжҐ*жЁп}
        end;
     close(f);

for i:=1 to 1000 do
    begin
        t[i]:=i+799;
        tt:=t[i]*1000;
        for ii:=1 to 1000 do
            begin
              if (tt>nm[ii]) and (tt<nm[ii+1]) then
                   begin
                       dd:=nm[ii+1]-nm[ii];
                       dl:=lum[ii+1]-lum[ii];
                     if dd=0 then dd:=1;{Ё§Ў*ў«пҐ¬бп ®в *г«п ў §**¬Ґ**⥫Ґ ¤а®ЎЁ}
                       ll[i]:=round(dl/dd*(tt-nm[ii])+lum[ii]);
                   end;
               if tt=nm[ii] then
                   begin
                     ll[i]:=lum[ii];
                   end;
            end;
writeln(t[i],'  ',ll[i]);
    end;
   assign(f,fi+'.txt');
   rewrite(f);
   for i:=1 to 1000 do
      begin
         writeln(f,t[i],'       ',ll[i]);
      end;

   writeln('ўбс Ј®в®ў®, **¦¬ЁвҐ enter');
   readln;
end.