Ответ: Чуть позднее сделаю - времени пока нет. Надо вспомнить про перестановки - сделаем

Ответ: Кто покажется неполным? Как вводить? Можно ли использовать классы, и, в частности, Borland Pascal есть дополнение Turbo Vision - с ним эту задачу решить, что два пальца ... хм.. ну очень просто. Или нужно посложнее?

Ответ: Это зависит от учителя. Подумаю, посоображаю, что он имел в виду...
ГМ! А УЖЕ НЕ ЗАПИСЫВАЕТ ЛИ ОН ЧИСЛО В ДВОИЧНОМ КОДЕ? Уж не перепутал ли сам, какое задание дал Вам?

Ответ: Я переделал так:
--
program iz9;
const
max = 100; fam_max = 12;
Chars: set of char = [''A''..''z'', ''А''..''п'',''р''..''я'',''ё'',''Ё''];

type
TData = record
day, month, year: Word;
end;
TPassenger = record
fam: string [fam_max];
nr : Word; dv : TData; kv : Word;
ov : Word; {или Real}
end;
VAR f1, f2:text;
pass: array[1..max] of TPassenger;
i, count: Integer; {число считанных пассажиров}
mid_ov: Real;
BEGIN
assign(f1,''vhod.txt''); assign(f2,''vihod.txt'');
reset(f1); rewrite(f2);

count:=0;
while NOT EOF(f1) do begin
inc(count);
readLn(f1,
pass[count].nr, pass[count].dv.month, pass[count].dv.day,
pass[count].dv.year, pass[count].kv, pass[count].ov, pass[count].fam);
end;

mid_ov := 0;
for i :=1 to count do mid_ov:=mid_ov + pass[i].ov;
mid_ov := mid_ov / count;
WriteLn(''Средний вес: '', mid_ov:8:2);
WriteLn(f2, ''Средний вес: '', mid_ov:8:2);

WriteLn(''Багаж из одной вещи у пассажиров:'');
for i:=1 to count do
if pass[i].kv = 1 then begin
WriteLn(pass[i].fam);
WriteLn(f2, pass[i].fam);
end;
flush(f2); close(f1); close(f2)
end.
----
И входной файл:
2 21 02 2007 1 40 Петров
22 18 02 2007 2 30 Иванов
3 19 03 2007 1 50 Cидоров
--
То есть, записывать через пробел сначала цифры, а потом фамилию

Ответ: М... да... хороший учитель, да еще информатики
Я делал другую задачу: имеется массив, из которого нужно набирать сумму. А здесь массив a даже не задается, а набирается.
Это он (она) дал(а) такое?
Таки здесь выводятся единички и нули, а не числа!

Ответ: Слушай, тогда не понятно, при чем тут набор символов Sn. Или только из них может состоять палиндром? Тогда как задается этот набор?

Ответ: Пожалуйста, заходите еще :)

Ответ: Нужно выбирать палиндромы из какой-то строки, текста или что? А то составить бессмысленных палиндромов можно сколь угодно. Например: "аааааааааааааааааааааааааааааа" :))

Ответ: А как задавать, вводить группу? Наверно, есть какие-то ограничения, дополнительные требования по вводу - выводу. А так:
TYPE
TStudent = record
Name: String[20];
ForName: String[12];
Year: Word;
Group: Byte;
end;

Ответ: Вот посмотрите. Конечно, проще было бы вычислить положение буквы...
ЗЫ: ОБРАТИТЕ ВНИМАНИЕ, ЧТО ЗДЕСЬ АПОСТРОФЫ - ОДИНОЧНЫЕ КАВЫЧКИ (ОТМЕЧАЮТ СТРОКИ, СИМВОЛЫ) ЗАМЕНЯЮТСЯ ДВОЙНЫМИ
CONST
mes: String = ''чем дальше в лес, тем больше дров'';
var
i, j, n, m: Integer;
chars: array[1..6, 1..6] of Char;
k: Char; founded: Boolean;
BEGIN
k:=''а''; dec(k);
for i:=1 to 6 do begin
if i = 6 then m:=3 else m:=6;
for j:=1 to m do
begin
case k of
''е'': k:=''ё'';
''ё'': k:=''ж'';
''а''..''о'',''р''..''ю'': inc(k);
''п'': k:=''р'';
ELSE inc(k)
end;
chars[i,j]:=k;
end end;
for i:=1 to 6 do begin
for j:=1 to 6 do write(chars[i,j]:2); writeLn end;
for n:=1 to length(mes) do begin
founded:=False;
for i:=1 to 6 do begin
if i = 6 then m:=3 else m:=6;
for j:=1 to m do
if mes[n] = chars[i,j] then
begin write(i:3,j:3); founded := True end;
end;
if not founded then write(mes[n]:3) end;
WriteLn;
END.

Ответ: Решение сильно упростится, если массивы отсортировать - можно? Вот так это делается :)) А, пожалуй, и сортировать не обязательно
---
const
N1 = 25;
N2 = 30;
var
a: Array [1..N1] of Integer;
A_in_B_no: array [1..N1] of Integer;
b: Array [1..N2] of integer;

i, j: Integer;
IsTrue, A_in_B: Boolean;
BEGIN
for i:=1 to N1 do begin a[i]:=i+2; write(a[i]:5) end; writeLn;
for i:=1 to N2 do begin b[i]:=i; write(b[i]:5) end; WriteLn;
for i:=1 to N1 do A_in_B_No[i] := 0;
i:=1;
for i:=1 to N1 do begin
j:=1;
A_in_B := False;
while (j < N2) and (not A_in_B) do begin
if a[i] = b[j] then begin
A_in_B := True;
A_in_B_No[i]:=j;
break end;
inc(j);
end;
end;
{Если хотя бы где 0 - значит такого A нет в B}
for i:=1 to N1 do
if A_in_B_no[i] = 0 then
begin
WriteLn(FALSE); Halt(0)
end;
{А теперь проверяем второе условие}
for i:=1 to N1-1 do
for j:=i+1 to N1 do
if A_in_B_no[i] > A_in_B_no[j] then
begin {вот оно - нарушение}
WriteLn(FALSE); Halt(0)
end;
WriteLn(TRUE);
END.

Ответ: Посмотрите, как у Вас описаны пути к модулям:
Options -> Directories -> Unit directories (Туда запишите полное имя папки, где модули)
Либо второй возможный вариант связан с тем, что Паскаль, он ДОСовский и длинных имен не понимает. То есть - 8 букв в любом имени папки и без пробелов

Ответ: Привет. Думаю и никак не пойму условия задачи:
1) как задается n? Фиксированное?
2) покажи пример того, что должно получиться