Как написать программы?

var a,b:real;      // переменные вещественного типа
begin
     write('Введите число А=');Read(a);    // Вводим и записываем в переменную а/b
     write('Введите число Б=');Read(b);
     if a=b then a:=a+b                    //Если они равны, в переменную A заносим их сумму
     else a:=a*b;                          //Иначе в переменную A заносим произведение
writeln('A=',a);                           //Выводим
end.

Const
Fruits: array[1..8] of string = ('Apple', 'Plum', 'Pear', 'Apricot', 'Orange', 'Grapes', 'Pineapple', 'Cherry');
Clothes: array[1..6] of string = ('Skirt', 'blouse', 'shirt', 'trousers', 'cap', 'dress');
// Задаем названия, как 2 массива, сразу записываем, как константу (для простоты)
var i:integer;
begin
     for i:=1 to 8 do                   //От 1 до 8 (кол-во фруктов) выводим
     writeln(Fruits[i],' ',i);          //Элемент массива (название) и Индекс (порядковый номер)
     writeln('');                       //Пустая строка (для разделения еды от одежды)
     for i:=1 to 6 do                   //От 1 до 6 (кол-во одежды) выводим
     writeln(Clothes[i],' ',i);         //Так же.
end.

Program I;
type Fruits = ( Apple, Plum, Pear, Apricot, Orange, Grapes, Pineapple, Cherry);
var i: integer;
begin
i:=ord(Apple), writeln(i);
i:=ord(Plum), writeln(i);
i:=ord(Pear), writeln(i);
i:=ord(Apricot), writeln(i);
i:=ord(Orange), writeln(i);
i:=ord(Grapes), writeln(i);
i:=ord(Pineapple), writeln(i);
i:=ord(Cherry), writeln(i);
end.

uses crt;
type
 Fruits = ( Apple, Plum, Pear, Apricot, Orange, Grapes, Pineapple, Cherry);
 Clothes = (Skirt, blouse, shirt, trousers, cap, dress);
Const
F: array[0..7] of string = ('Apple', 'Plum', 'Pear', 'Apricot', 'Orange', 'Grapes', 'Pineapple', 'Cherry');
C: array[0..5] of string = ('Skirt', 'blouse', 'shirt', 'trousers', 'cap', 'dress');
var i:Fruits;
    j:Clothes;
begin
writeln('Номера первого типа');
for i:=Apple to Cherry do
writeln(F[ord(i)],'=',ord(i)+1);
writeln;
writeln('Номера второго типа');
for j:=Skirt to dress do
writeln(C[ord(j)],'=',ord(j)+1);
writeln;
end.

Program A;//программу нельзя называть как переменную
type Fruits =(Apple, Plum, Pear, Apricot, Orange, Grapes, Pineapple, Cherry);
var i: integer;
    j: Fruits;
begin
j:=Apple;
i:=ord(j)+1;writeln(i);
end.

Program Sun;
type Fruits = (Apple, Plum, Pear, Apricot, Orange, Grapes, Pineapple, Cherry);
var
i: integer;
j: Fruits;
begin
j:=Apple;
i:=ord(j)+1;writeln(i);
j:=Plum;
i:=ord(j)+1;writeln(i);
// и так далее....?
end.

//Если совместить...
Program Sun;
type Fruits = (Apple, Plum, Pear, Apricot, Orange, Grapes, Pineapple, Cherry);
type Clothes = (Skirt, blouse, shirt, trousers, cap, dress);
var
i: integer;
j: Fruits;
z: Clothes;
begin
j:=Apple;
i:=ord(j)+1;writeln(i);
j:=Plum;
i:=ord(j)+1;writeln(i);
// и так далее....
z:=Skirt;
i:=ord(z)+1;writeln(i);
z:=blouse;
i:=ord(z)+1;writeln(i);
// до конца...
end.