Текстовые файлы(Паскаль)

[Cas01]

Помогите плз с написанием проги,нужно очень очень срочно!!!!!!!
СпаСИБО!!!!!!!!



В текстовом файле t1 записана последовательность целых чисел,разделённых пробелами(пробелов может быть больше одного).Написать процедуру,записывающую в текстовый файл t2 все положительные числа из t1!!!!

[GetMax]

Var
  F1,F2:Text;
Procedure Perepis(Var T1,T2:Text);
Var
  Chislo:Integer;
Begin
  While Not EOF(T1) do
  Begin
    Read(T1,Chislo);
    Write(Chislo,' ');
    If Chislo > 0 then
    Write(T2,Chislo,' ');
  End;
End;
begin
  Assign(F1,'Ishod.Txt');
  Assign(F2,'Rez.Txt');
  Reset(F1);
  Rewrite(F2);
  Perepis(F1,F2);
  Close(F1);
  Close(F2);
  Readln
End.

[p51x]

http://programmersforum.ru/forumdisplay.php?f=29

[Cas01]

я так понимаю что файлы ishod и rez должны нах-ся в папке с прогой да?

а какой формат должен быть у этих файлов?

[Cas01]

блин.....никак не получается сделать прогу рабочей.....подскажите ПЛЗ!!!!!!!

[GetMax]

я так понимаю что файлы ishod и rez должны нах-ся в папке с прогой да?

Да где угодно они могут находится. Главное правильно прописать путь к ним. Я писал из расчета что файлы и программа в одной папке

а какой формат должен быть у этих файлов?

Текстовый файл -Txt

[Cas01]

а кроме файлов ishod и rez никакие создавать не нужно?

[GetMax]

Ishod это уже созданный текстовый файл из которго читаются числа. Rez - файл в которой записываются только положительные. Больше никакие файлы не нужны

[Cas01]

Спасибо огромное!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!Выручил!!!!!!!!!!