Курсовая работа: Создание программы на языке Delphi 70

72. Label4.Visible:=False;

73. Label1.Caption:='Нажмите на кнопку "Открыть" и выберите файл для проверки';

74. end;

75. procedure TForm1.Button3Click(Sender: TObject);

76. var

77. FO,FS:TextFile;

78. i,j,count:integer;

79. str,strslovo,tmpstr:String;

80. ZnCh,UpCh:set of Char;

81. answ:Word;

82. begin

83. count:=0;

84. ZnCh:=['.',',','!','?'];

85. UpCh:=['A'..'Z','А'..'Я'];

86. AssignFile(FO,OFName);

87. AssignFile(FS,SFName);

88. {$I-}

89. Reset(FO);

90. {$I+}

91. if IOResult<>0 then begin

92. ShowMessage('Произошли проблемы с открытием файла. Программа будет завершена');

93. Exit;

94. end

95. elsebegin

96. Rewrite(FS);

97. while not Eof(FO) do begin

98. Readln(FO,str);

99. strslovo:='';

100. for i:=1 to Length(str) do begin