проверти,файлы,паскаль!!

[DjDeniels-61]

В существующем типизированном файле, элементами которого являются отдельные слова, изменить на заданное слово: первое слово.

program a;
uses crt;
Type t=record
d:string;
end;
var
f: file of t;
st:t;
i:integer;
begin
clrscr;
assign(f,'File.txt');
rewrite(F);
readln(st.d);
write(f,st);
reset(F);
readln(st.d);
write(f,st);
close(f);
end.

[Sazary]

Что-то такое:

uses crt;
Type t=record
d:string;
end;

var
f,fout: file of t;
st:t;
str : string;

begin
clrscr;
assign(f,'test.txt');
assign(fout,'test_out.txt');

reset(f);
rewrite(fout);

writeln('Enter word: ');
readln(str);

readln(st.d);
st.d := str;
write(fout,st);
while not eof(f) do
 begin
 read(f,st);
 write(fout,st);
 end;

close(f);
close(fout);
end.

Можно еще сначала все слова в массив перегнать.

[NSvirus]

А зачем новый файл создавать? Нужно просто заменить в существующем.
Assign(f);
Readln(st.d);
Write(f, st)

[Serge_Bliznykov]

NSvirus, +1

точно. для типизированных файлов, открытых по Reset(f)
устанавливается по умолчанию режим Read-Write.
Поэтому нормально отработает такой код:

  reset(f);
  Read(f,st);
  WriteLn('Первое слово было: ',st.d);
  WriteLn('Введите новое слово: ');
  Readln(st.d);
  seek(f,0); {<-  установить позицию в файле на нулевое смещение 
                  (= указатель стал на первую запись)}
  Write(f,st); {запишем новое слово}
  Close(f);

[Sazary]

Да, я что-то не о том подумал