{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.