continue.pas

{Continue.PAS}
 
{ Пример программы для процедуры Continue }
 
   Uses WinCrt;
 
   Var  I : Integer;
        Name : String[79];
        F : File;
 
   Begin 
   For I:=1 To ParamCount Do
   Begin
   Name:=ParamStr(I);
   Assign(F, Name);
    {$I-}
     Reset(F, 1);
     {$I+}
      If IOResult<>0 Then
      Begin
      WriteLn('Файл "', Name, '" не найден...');
     Continue;
    End;
   WriteLn(Name, ' : ', FileSize(F), ' байт');
  Close(F);
 End;
End.