Помогите, пожалуйста с задачками по Паскалю

[Космонавт]

Друзья! Срочно нужна помощь...
У сестренки двоюродной сессия, задали задачки, я не могу ей помочь, а сама не знает!!!
1) Считать из файла (*.txt) данные по людям .... Отобрать людей с заданным вводом образованием и с заданным вводом диапазоном возраста.


2) Есть файл (*.txt ) содержащий ФИО, города и телефоны людей. Вывести на экран эти данные в Паскале


3) Вводятся два массива длин n с нулями (например n=8
х=(0 1 0 0 3 0 5 0)
у=(0 0 0 1 2 2 1 0) )
Работая со списками реализовать операции
z=x+y (то есть z= (0 1 0 1 5 2 6 0) )

а=(х,у)= суммирование (XiYi)

Ввод организовать списком, вывод - на экран в обычном виде


Спасите чайников...

[L_M]

Вот мои варианты. А действительно, почему сестренка не может сама попросить?

[Космонавт]

Сообщение от L_M

Вот мои варианты. А действительно, почему сестренка не может сама попросить?

У нее нет выхода в интернет, да и с компами она не очень дружит...

А можно файлы не для Delphi, а для Turbo Pascal ? Просто я не могу просмотреть текст программы ...
Спасибо огромное за помощь!!!

[[Smarik]]

текст программы на until1.pas файле

[Космонавт]

Нет таких фалов... ((

[Alter]

Внутри архива лежать проекты КОНСОЛЕК на Дельфи, *.dpr.
Переименуйте их на *.pas, и изнутри файлов убери строки: {$APPTYPE CONSOLE}, и uses SysUtils;.
Собственно это всё.

[Космонавт]

Я сделал, но код не идет... ошибки

[PAWLO1993]

Вот задача №3
Program NoName;
VAR N,M,I:longint;
A,B:ARRAY[1..10000] OF longint;
Begin
write('n = ');
READLN(N);
FOR I:=1 TO N DO
READ(A[I]);
FOR I:=1 TO N DO
READ(B[I]);
FOR I:=1 TO N DO
WRITE(A[I]+B[I],' ');
end.
Проверил. Все работает.

[Космонавт]

Спасибо огромное!!!

[Космонавт]

Правда первые две не работают... Помогите пожалуйста...