Кибернетика. доклад, максимум на 2 печатные страницы

Var  s: string;  k: real;
begin 
write('Введите вес в килограммах '); 
Readln(k); 
Write('Во что хотите перевести (мгр, гр, Цн, Тн, КТн, МТн): '); 
Readln(s); 
case s of   
'мгр': write(k, 'кг = ', k * 1000000, ' мгр');   
'гр': write(k, 'кг = ', k * 1000, ' гр');   
'Цн': write(k, 'кг = ', k / 100, ' ц');   
'Тн': write(k, 'кг = ', k / 1000, ' Т');   
'КТн': write(k, 'кг = ', k / 1000000, ' Кт');   
'МТн': write(k, 'кг = ', k / 1000000000, ' Мт') 
Else write('Неправильно введена единица измерения'); 
End;
end.

41)Создать новую таблицу
42) Д)
43)Правка - Удалить запись.
50) Параметры.
53)Выводится диалоговое окно с приглашением ввести параметр для условия на отбор записей.
56)Изменяются значения в полях определенных записей.
57)Создается таблица с данными, соответствующими определенным условиям.
62)Автоматической вставки последовательных или случайных чисел в качестве номера новой записи.
65)Во вкладке Режим таблиц – выбрать Вставить 
66)Разные имена, но одинаковый тип данных.
69)Для отбора записей, данные в которых соответствуют определенным условиям.
70)Е)
71)Для создания контрольного переключателя.