И снова файл

[ТРОЯН=)]

Всем привет,вот две задачки помогите довести до ума...

1.Находит среднее арихметическое несколько раз по три числа-надо теперь это всё в файл записать(неполучается)!

program srednie;
uses crt;
var
f : text;
a,b,c : integer;
s : real;

begin
clrscr;
assign(f,'test.txt');
reset(f);
s := 0;
read(f,b,c);
while not eof(f) do
 begin
 a := b;
 b := c;
 readln(f,c);
 s := (a+b+c)/3;
 writeln(f,s); 
 end;

close(f);
readln;
end.

2.Выравнивание по центру или правому краю-неровно блин строки выравнивает(((

Program file14;
uses crt;
 var
 f,f1:text;
 ch:char;
 fn:string;
 s,m,subs,m1:string;
cline, k,i,e:integer;
procedure notleft;
 begin
while not eof(f) do
 begin
  readln(f,m);
  cline:=(180-length(m)) div 2;
 for i:= 1 to cline do
insert(' ',m,pos(' ',m));
   writeln(f1,m);
  end;
end;

procedure centre;
 begin
 while not eoln(f) do
 begin
  readln(f,m);
   k:=(80-length(m)) div 2;
  for i:= 1 to k do
   insert(' ',m,pos(' ',m));
   writeln(f1,m);

  end;
 end;
begin
clrscr;
 writeln('‚ўҐ¤ЁвҐ Ё¬п д*©«*');
 readln(fn);
 fn:=fn+'.txt';
 assign(f,fn);
 {$I-}
 reset(f);
 {$I+}
 if IoResult<>0 then exit;
 assign(f1,'ff');
 rewrite(f1);
 writeln('e');
 ch:=readkey;
if ch='1' then centre;
if ch='2'then  notleft;
 close(f);
 close(f1);
 erase(f);
 rename(f1,fn);
 end.

[krypton]

насколько я помню для записи в файл надо использовать rewrite а не reset

[ТРОЯН=)]

не rewrite это новый файл создать)

[Sazary]

Во-первых, не

 readln(f,c);

а

 read(f,c);

Это важно.
Во-вторых, вы в цикле пытаетесь записать в файл из которого и производите чтение. Как вы себе это представляете?
Или сначала читайте числа в массив, либо пишите в другой файл.

По второй:
Все это выравнивание напрямую зависит от размера окна редактора.

ps Да, и забыл сказать, что reset открывает только для чтения.
Для добавления используйте append.

[VVM]

Процедура ReWrite открывает файл, указанный в FileHandle для записи.
Если файл не существует, то он будет создан.
Если файл уже существует, содержание будет потеряно, и новые данные добавятся в начало.

Вот примерчик с нета (писать лень самому =) ):

var
  myFile : TextFile;
  text   : string;

begin
  // Попытка открыть файл Test.txt для записи
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);

  // Запись нескольких известных слов в этот файл
  WriteLn(myFile, 'Hello');
  WriteLn(myFile, 'World');

  // Закрытие файла
  CloseFile(myFile);

  // Переооткрытие файла в режиме только для чтения
  Reset(myFile);

  // Показ содержимого файла
  while not Eof(myFile) do
  begin
    ReadLn(myFile, text);
    ShowMessage(text);
  end;

  // Закрытие файла в последний раз
  CloseFile(myFile);
end;