program proga1;
var
n:word;
s,s2:string;
procedure zamena(t:string;n:word;c:string);
var f,f2:text;
i:word;
tmp:string;
z:boolean;
begin
z:=false;
assign(f,t);
assign(f2,t+'~tmp');
reset(f);
rewrite(f2);
while not EOF(f) do begin
inc(i);
if i=n then begin
z:=true;
writeln(f2,c);
end
else begin
readln(f,tmp);
writeln(f2,tmp);
end;
end;
close(f);
close(f2);
if z=false then begin
writeln('В файле нет строки с таким номером');
erase(f2);
end
else begin
write('Готово!');
erase(f);
rename(f2,t);
end;
end;
begin
writeln('Введите имя файла, номер строки и новую строку');
readln(s2);
readln(n);
readln(s);
zamena(s2,n,s);
end.

program proga2;
var f,f2,f3:file of integer;
x1,x2:integer;
fb1,fb2:file of byte;
begin
assign(fb1,'1.dat');
assign(fb2,'2.dat');
reset(fb1);
reset(fb2);
x1:=Filesize(fb1);
x2:=Filesize(fb2);
close(fb1);
close(fb2);
if (x1 mod 4=0)and(x2 mod 4=0)then begin
assign(f,'1.dat');
assign(f2,'2.dat');
reset(f);
reset(f2);
assign(f3,'3.dat');
rewrite(f3);
while not(EOF(f)and(EOF(f2)))do begin
x1:=0;
x2:=0;
if not EOF(f) then read(f,x1);
if not EOF(f2) then read(f2,x2);
x1:=x1+x2;
write(f3,x1);
end;
close(f);
close(f2);
close(f3);
end
else writeln('Данные в файлах не являются integer');
end.