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

[PAWLO1993]

ЗАДАЧА №2
Program NoName;
VAR A:CHAR; F:TEXT;
Begin
ASSIGN(F,'....TXT'); {ЗДЕСЬ НУЖНО ПОКАЗАТЬ ГДЕ НАХОДИТСЯ ФАЙЛ. НАПРИМЕР C:\PROGRAM FILES\DOK.TXT}
RESET(F);
WHILE NOT EOLN(F) DO BEGIN
WHILE NOT EOLN(F) DO BEGIN
READ(F,A);
WRITE(A);
END;
READLN(F);
WRITELN;
END;
CLOSE(F);
READLN;
end.

[L_M]

А что за ошибки возникают?

[PAWLO1993]

Какие ошибки?

[PAWLO1993]

Проверил. Все работает.

[Космонавт]

Спасибо вам огромное!!! Осталась самая сложная задача!!! №1
А ошибки быликогда поменял расширения у файлов, и убрал лишнее...
просто зависает машина и все...

Помогите, please, с первой задачей... очень срочно нужно!!!
ВСЕХ С ПРАЗДНИКОМ!!!!

[PAWLO1993]

Наведи приклад одного рядочка, щтоб я знал как он вигледит.

[Космонавт]

Извините, не совсем понял вопроса!!!

[PAWLO1993]

Как выгледят данные??? Наведи приклад.

[Космонавт]

Исходные данные в txt файле вот в таком виде:

Иванов 23 высшее
Петров 18 среднее
Сидоров 20 среднеспециальное

всего 3 вида образования (их можно заменить буквами В-высшее, С-среднее, СП-среднеспециальное)

[PAWLO1993]

Вот №1
Program NoName;
VAR A:CHAR; F:TEXT;
s,s1,s2,s3:string;
i,j,a1,b,eror,d,r:longint;
Begin
write('введите образование ');
readln(s3);
write('введите возраст от - ... до - ... ');
readln(a1,b);
ASSIGN(F,'*.TXT');
RESET(F);
WHILE NOT EOLN(F) DO BEGIN s:='';s1:='';s2:=''; r:=0;
WHILE NOT EOLN(F) DO BEGIN
READ(F,A);
s:=s+a;
END;
for i:=1 to length(s) do begin
If (S[i]>='0') and (S[i]<='9')
Then S1:=S1+S[i];
if s[i]=' ' then r:=r+1;
if i+1<=length(s) then
if r=2 then s2:=s2+s[i+1];
end;
val(s1,d,eror);
if (d>=a1) and (d<=b) and (s2=s3) then writeln(s);
READLN(F);
END;
CLOSE(F);
READLN;
end.