Две программы на "Файлы"

[vitekbest]

№1
В текстовом файле t1 записана последовательность целых чисел, разделённых пробелами. Описать процедуру positive(t1,t2), записывающую в текстовый файл t2 все положительные числа из t1.
№2
type текст = file of char;
Описать логическую функцию eq(t1,t2), проверяющую тексты t1 и t2 на равенство.

P.S.: Мне нужен код к обеим прогам. Заранее спасибо Вам!

[Костя КС]

первая, на сколько я понимаю надо в паскале

program qqq;
const
t1 = 't1.txt';        
t2 = 't2.txt';

procedure positive(t1,t2 : string);
var
f1, f2 : text;
i : integer;
begin
assign(f1, t1);
assign(f2, t2);

reset(f1);
rewrite(f2);

while not EOF(f1) do  // EOF - конец файла
begin
read(f1,i);
if i >= 0 then
begin
 write(f2, i);
 write(f2,' ');
 end;
end;
close(f1);
close(f2);
end;
begin
positive(t1,t2);
end.

[Костя КС]

вторая

program qqq;
const
t1 = 't1.txt';
t2 = 't2.txt';

function eq(t1,t2 : string) : boolean;
var
f1, f2 : file of char;
i1, i2 : char;

begin
assign(f1, t1);
assign(f2, t2);

reset(f1);
reset(f2);

while  (EOF(f2)=false)and(EOF(f1)=false) do
begin
read(f1,i1);
read(f2,i2);
if i1 <> i2 then eq := false else eq := true;
if EOF(f1)<>EOF(f2) then eq := false;
end;
close(f1);
close(f2);
end;
begin
if eq(t1,t2) = true then writeln('true')
  else writeln('false');
end.

надеюсь всё так. но проверь обязательно