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

[Cas01]

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


Помогите написать прогу целиком......................
Спасибо огромное заранее!!!!!!!!!!!!!

[rubius2008]

А сам то попытался что-то сделать?

[Cas01]

Ещё как попытался......написал 19 прог.....просто эти нужны очень и очень срочно!!!
И мне оооочень плохо даются проги с файлами......вот пытаюсь на сост-ых вами разбираться....с пред-ей уже всё понятно!!!!!

Просто в политехе учусь......очень срочно!!!!!!!!!!!!

[rubius2008]

while not eof(t1) do begin
  readln(t1,s); sc:='';
  for i:=1 to length(s) do 
    if s[i] in ['-','0'..'9'] then sc:=sc+s[i]
    else if (pos('-',sc)=0) and (length(sc)>0) then write(t2,sc,' ');
  writeln(t2); 
end;

t1, t2 - файловые переменные