Блок-схема. 
Основы технологии программирования

Проектирование главной формы и свойства используемых компонентов

Button1OnClick — запуск программы на решение;

LabeledEdit1 — запись первой буквы;

LabeledEdit2 — запись второй буквы;

Label1.Caption — Заголовок «Введите первую латинскую букву»;

Label2.Caption — Заголовок «Введите вторую латинскую букву»;

Label3.Caption — вывод результата.

Экранная форма программы

Текст программы

unit Unit1;

interface.

uses.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.

Dialogs, StdCtrls, ExtCtrls;

type.

TForm1 = class (TForm).

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

Button1: TButton;

Label1: TLabel;

procedure Button1Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

simv1,simv2:string;

procedure symbol;

implementation.

{$R *.dfm}.

procedure symbol;

var.

f1,f2:textfile;

str, buf: string;

ch1,ch2:char;

i:byte;

flag:boolean;

begin.

simv1:=trim (form1.LabeledEdit1.Text);

simv2:=trim (form1.LabeledEdit2.Text);

flag:=true;

if (length (simv1) >1) or (length (simv2)>1) then.

begin.

flag:=false;

showmessage (' Вводить нужно один символ');

end;

if flag then.

begin.

if (simv1='') or (simv2='') then.

begin.

flag:=false;

showmessage (' В одном из полей ввода пустое значение');

end.

else.

begin.

simv1:=LowerCase (simv1);

simv2:=LowerCase (simv2);

ch1:=simv1[1];

ch2:=simv2[1];

if (not (ch1 in ['a'.'z','A'.'Z'])) or (not (ch2 in ['a'.'z','A'.'Z'])) then.

begin.

flag:=false;

showmessage (' Введен недопустимый символ');

end;

end;

end;

if flag then.

begin.

assignfile (f1,'input.txt');

reset (f1);

read (f1,str);

close (f1);

buf:='';

for i:=1 to length (str) do.

begin.

if (str[i]simv1) and (str[i]simv2) and (str[i]' ') then.

begin.

buf:=buf+str[i]+' ';

end;

end;

buf:=buf+simv1+' '+simv2;

assignfile (f2,'output.txt');

rewrite (f2);

write (f2,buf);

writeln (f2);

close (f2);

form1.Label1.Caption:=buf;

end;

end;

procedure TForm1. Button1Click (Sender: TObject);

begin.

symbol;

end;

procedure TForm1. FormCreate (Sender: TObject);

begin.

end;

end.

Результат работы программы

1. Введенные произвольные буквы:

da.

2. Полученная строка:

b c e f g h i j k l m n o p q r s t u v w x y z d a.