Переписать в файл g все строки из файла f, которые начинаются с буквы 'c'. - PascalABC.NET - Ответ 10779917

...
var 
  InputFileName:string;
 
implementation
 
procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
  if openFileDialog1.ShowDialog=System.Windows.Forms.DialogResult.OK then InputFileName:=openFileDialog1.FileName 
  else InputFileName:='';
end;
 
procedure Form1.button2_Click(sender: Object; e: EventArgs);
begin
  if not FileExists(InputFileName)then MessageBox.Show('Сначала выберите существующий файл') else
  if saveFileDialog1.ShowDialog=System.Windows.Forms.DialogResult.OK then 
    if saveFileDialog1.FileName=InputFileName then MessageBox.Show('Имена файлов должны отличаться!') else begin
    System.IO.File.WriteAllLines(saveFileDialog1.FileName,
    System.IO.File.ReadAllLines(InputFileName,Encoding.GetEncoding(1251)).Where(s->(s.length>0) and (s[1]='c')).ToArray,
    Encoding.GetEncoding(1251));
    MessageBox.Show(format('Файл {0} успешно записан',saveFileDialog1.filename));
  end;
end;
 
end.