Delphi/Перевод слов-Базовый курс

Здесь дан перевод ключевых слов, команд и т. д, которые использовались в Базовом курсе. Это кому лень лезть в словарь или переводчик:)

Слово	Перевод
procedure	процедура
begin	начать(начинается, начало)
end	конец(окончить)
interface	интерфейс
uses	используются(использования)
private	заприваченные
public	публичный
var	от variable — переменная
button	кнопка
true	правда(да, верно)
false	ложь(нет, неверно, фальшивый)
if	если
then	затем(тогда)
else	иначе

Перевод кодов

1

Исходный:

procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
begin
a:=5;
end;

Переведенный:

процедура ТФорма1.Кнопка1Клик(Sender: ТОбъект);
пер
a:целая;
начать
a:=5;
конец;

2

Исходный:

procedure TForm1.Button1Click(Sender: TObject);
var a, b:integer
begin
a:=StrToInt(Edit1.Text);
if a<5 then
begin
Edit2.Text:='Число подходит!';
end
else
begin
Edit2.Text:='Число неправильное!';
end;
end;

Переведенный:

процедура ТФорма1.Кнопка1Клик(Sender: ТОбъект)
пер a, b:целая;
начать
a:=СтрВЦел(ПолеВВода1.Текст);
если a<5 тогда
начать
ПолеВвода1.Текст:='Число подходит!';
конец
иначе
начать
ПолеВвода1.Текст:='Число неправильное!';
конец;
конец;