Написать программу нахождения максимального числа, где должны быть: 1. ввод 10 чисел с клавиатуры 2. их перебор с нахождением максимального элемента 3. вывод значения максимального элемента в текстовый файл (программа должна его создать)

Const
   N = 10;
Var
   A:array[1..N] of integer;
   i,Max:integer;
   f:text;
Begin
For i:= 1 to N do
    Read(A[i]);
Max:=A[1];
For i:= 2 to N do
    if A[i] > Max then Max:=A[i];
Assign(f,'Max.txt');
Rewrite(f);
Write(f,Max);
Close(f);
End.

Год создания первого компьютера - 1938 год, машина Z1, инженер Конрад Цузе. Первым функционирующим программируемым компьютером принято считать Z3(1941 год) этого же инженера.

Год создания первого отечественного компьютера- 1951 год, МЭСМ, разработана группой Лебедева в Киеве.

Год открытия радиосвязи- 1995 год, изобретатель А. С. Попов

Год первого полета человека в космос- 1961 год, Ю. Гагарин

Год принятия христианства на Руси- 988 год.

Год первого упоминания в летописи о Москве- 1147 год, летопись "Москва"

Год начала великой отечественной войны- 1941 год, 

Год запуска первого искусственного спутника земли- 1957 год,  «Спутник-1», СССР

Год открытия Колумбом Америки- 1492 год.

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