[Valik09]

Добрых суток, Кто хорошо разбирается помогите с описание программы, нужно описать что делает каждый пункт программы.

Код:

Var F1,F2: TextFile;
    fn1,fn2,st: string;

function NKP(st: string): string;
Var l: integer;
begin
 l:= length(st);
 while (l>0)and((st[1]=#32)or(st[l]=#32)) do
 begin
  if st[1]=#32 then delete(st,1,1);
  if st[l]=#32 then delete(st,l,1);
  l:= length(st);
 end;
 Result:= st;
end;

function PSLova(st: string): string;
Var i: integer;
begin
 i:=1;
 while i<length(st) do
 begin
  inc(i);
  if(st[i-1]=#32)and(st[i]=#32)Then
  begin
   delete(st,i,1);
   dec(i);
  end;
 end;
 Result:= st;
end;

begin
  try
   fn1:= ExtractFilePath(paramstr(0))+'!file.txt';
   fn2:= ExtractFilePath(paramstr(0))+'~!file.txt';

   AssignFile(F1, fn1);
   AssignFile(F2, fn2);
   {$I-}
   Reset(F1);
   if IOResult<>0 then
   begin
    Writeln('Source file not found '+fn1);
    Writeln('to quit press ENTER');
    Readln;
    Exit;
   end;
   Rewrite(F2);
   {$I+}
   if IOResult=0 then
   begin
    while not eof(F1) do
    begin
     Readln(F1,st);
     st:= NKP(st);
     st:= PSlova(st);
     Writeln(f2,st);
    end;
   end;
   CloseFile(F1);
   CloseFile(F2);
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
  Writeln('Operation completed!');
  Writeln('The output in the file '#13#10+fn2);
  Writeln('to quit press ENTER');
  Readln;
end.

Admin: Учимся правильно пользоваться тегами!