Var
s, m: integer;
begin
writeln('Возраст Саши = ');
read(s);
writeln('Возраст Маши = ');
read(m);
if s > m then writeln('Саша старше Маши');
if m > s then writeln('Маша старше Саши');
if m = s then writeln('Одногодки');
end.
Ошибка:
<span>CharMas1=array[A..Z] of integer;
Здесь используются неизвестное имя A и Z,которые,предварительно должны быть описаны в const,либо в var
</span>
Это и к файлу и к папке относится:
1.Копировать
2.Вставить
3.Вырезать
4.Открыть
5.Удалить
6.Переименовать
Решения смотри во вложении.