Які імена допустимі як ідентифікатори?
9A
IF
Prime1
summa​

Запись 5 строк в файл }

procedure TForm1.Button1Click(Sender: TObject);

var outfile: TextFile;

begin

AssignFile(outfile, 'outfile.txt')

;Rewrite(outfile);

writeln(outfile, 'Привет из Delphi');

writeln(outfile, 'Моя программа работает, и выводит '

+'данный текст, чтобы доказать это...');

writeln(outfile, '3. Треться строка');

writeln(outfile, '234 четвертая');

writeln(outfile, 'Пятая строка');

CloseFile(outfile);

end;

// вывод на экран точнее в мемо или лист бокс

procedure TForm1.Button2Click(Sender: TObject);

begin

// выводим в мемо

Memo1.Lines.LoadFromFile('outfile.txt');

// либо в лист бокс как тебе лучше

ListBox1.Items.LoadFromFile('outfile.txt');

end;

// кнопка для закрытия

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

// событие onClose

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);

begin

if MessageDlg('Вы точно хотите выйти?', mtConfirmation, mbOkCancel,0)= mrOk then begin

CloseAction:= caFree;

end

else begin

CloseAction:= caNone;

end;

end;

ЗДЕСЬ!

outfile.txt - это ваш файл(может создаваться автоматически

Объяснение:

Алгоритм приготовления яичницы:

1.НАЧАЛО

2.Взять чистую сковороду

3.Поставить сковороду на огонь.

4.Налить немного масла

5.Если масло разогрелось, то перейти к шагу 8

6.Подождать 2 минуты

7.Перейти к шагу 5.

8. Разбить на сковороду 3 яйца

9. Уменьшить огонь до минимума

10. Посолить яичницу

11. Накрыть сковороду крышкой (я люблю прожаренные и сверху)

12. Подождать 7 минут.

13. Снять сковороду с огня.

14. Выложить яичницу на тарелку.

15. Положить на тарелку по вкусу майонез, лук, колбасу и проч.

16. Приятного аппетита!

17. КОНЕЦ