Небольшая проблема с текстовым файлом.

[Liinad]

Во всех словах, которые имеют только маленькие латинские буквы, изменить их на больше прописные. ('a'..'z')->('A'..'Z')

Ошибка : Ошибка ввода/вывода : файл не открыт для ввода.
Кому не сложно подскажите в чем я не прав.

var
   f,p : text;
   sim : char;
   st : string;
begin
     assign(f,'C:\Users\Äàíèèë\Desktop\test.pas');
     assign(p,'itog.pas');
     reset(f);
     writeln;
     writeln('   Исходный файл : ');
     writeln;
     while not eof(f) do
          begin
               readln(f,st);
               write(st);
               writeln;
          end;
     reset(f);
     rewrite(p);
     while not eof(f) do
          begin
                 if sim in ['a'..'z'] then
                 upcase (sim);
                 read(p,sim);//здесь проблема
                 write(sim);
          end;


close(f);
close(p);
end.

[GreenWizard]

ну вот убил бы.... русский сложно выучить, Азаров фигов? я вон и русский, и украинский, и английский знаю, хоть сам инвалид первой группы.... а ты чем болен, что не можешь выучить язык соседский?

по теме:

     while not eof(f) do
          begin
               readln(f,st);
               write(st);
               writeln;
          end;
     close(f); <==  выкинуть!
     reset(f);

[Liinad]

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

ну вот убил бы.... русский сложно выучить, Азаров фигов? я вон и русский, и украинский, и английский знаю, хоть сам инвалид первой группы.... а ты чем болен, что не можешь выучить язык соседский?

Русский знаю, да ступил надо было на русском написать. Сейчас перепишу задание. И закрытие F не помогло.

[GreenWizard]

var
   f,p : text;
   sim : char;
   st : string;
begin
     assign(f,'C:\Users\Äàíèèë\Desktop\test.pas');
     assign(p,'itog.pas');
     reset(f);
     writeln;
     writeln('   Исходный файл : ');
     writeln;
     while not eof(f) do
          begin
               readln(f,st);
               write(st);
               writeln;
          end;
// nafix     close(f);
     reset(f);
     rewrite(p);
     while not eof(f) do
          begin
                 read(f,sim);//здесь f, a ne p
                 if sim in ['a'..'z'] then
                 upcase (sim);
                 write(p, sim); // p
          end;


close(f);
close(p);
end.

пробуй
и сорри за наезд, просто бесит... уже ладно русские не знают украинский, это их дело, но мы-то не русские и можем знать оба языка)

[Liinad]

Да нечего сам виноват. Кстати проблему решил, спасибо за отзыв