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.