Паскаль, ASCII коды и файлы

[netcher]

можете написать вторую и четвертую задачу?

[Arkuz]

Задача 2:
В папке с экзешником нужно создать файл in.txt. С текстом типа:
1 2 3 5 4 6 4 5
1 2 4 8 4 5 4
1 2 3
Выходной файл создаётся автоматически.

program num2;
var
  f,f1:text;
  s,s1:string;
  i,tmp,code:integer;
  mas:array [0..10] of string;
begin
 mas[0]:='нуль';
 mas[1]:='один';
 mas[2]:='два';
 mas[3]:='три';
 mas[4]:='четыре';
 mas[5]:='пять';
 mas[6]:='шесть';
 mas[7]:='семь';
 mas[8]:='восемь';
 mas[9]:='девять';
 rewrite(f1,'out.txt');
 append(f1);
 assign(f,'in.txt');
 reset(f);
 while not eof(f) do
   begin
     s1:='';
     readln(f,s);
     for i:=1 to length(s) do
       begin
         if s[i]<>' ' then
            begin
             val(s[i],tmp,code);
             s1:=s1+mas[tmp];
           end;
         if s[i]=' ' then s1:=s1+' ';
       end;
       writeln(f1,s1);
   end;
   close(f1);
   close(f);
end.

[netcher]

во второй задаче

rewrite(f1,'out.txt');
append(f1);
assign(f,'in.txt');
reset(f);

вы открываете файл out.txt который еще не создан. и создаете файл который уже был создан в папке с екшеном. может их нужно поменять местами?

[Stilet]

и создаете файл который уже был создан в папке с екшеном

Че так? Reset не создает а открывает на чтение.