var
Form1: TForm1;
var f1 : textfile;
s : string;
i : integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
AssignFile(f1, 'Symbols.txt');
Reset(f1);
Readln(f1, s);
Label1.Caption:=s;
for i:=1 to length(s) do
begin
if s[i]='S' then s[i]:='s';
if s[i]='D' then s[i]:='d';
if s[i]='F' then s[i]:='f';
end;
Gotovo.Caption:=s;
CloseFile(f1);
end;
end.
Рис.9.1 Програма в процесі виконання
2. Дано послідовність слів, відокремлених комами, в кінці крапка. Надрукувати всі слова, у яких перша літера слова входить в нього ще раз.
