Описать процедуру:
add (t, c), добавляющую литеру с в конец текста t;
сообразил два варианта кода, но не знаю будут ли они правильны
procedure add (var t:tekst; c:char);
var x:char;
begin
append (t);
repeat read(t,x);
until not eof(t);
x:='c';
write(t,x);
close(t);
end
и второй
procedure add(var t:tekst; c:char);
var d:char; s:tekst;
begin
reset(t); rewrite(s);
while not eof(t) do
begin read(t,d); write(s,d) end;
write(s,c);
reset(s); rewrite(t);
while not eof(s) do
begin read(s,d); write(t,d) end
end;
из второго кода в частности интересует будет ли в участке
begin read(t,d); write(s,d) end;после прочтения текста из t и записи его в s операцией write(s,c) записываться С именно в конец текста s
write(s,c);
помогите, очень надо. пишите и свои варианты