program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type t=array[1..15]of string;
t1=text;
procedure vvod(var a:t;var n:integer);
var i:integer;
begin
writeln('vvedite razmer massiva:');
readln(n);
writeln('vvedite massiv:');
for i:=1 to n do
readln(a[i]);
end;
function del(s,sl:string):string;
var i:integer;
begin
for i:=1 to round(length(s)/length(sl)) do
begin
pos(sl,s);
delete(s,pos(sl,s),length(sl));
end;
del:=s;
end;
procedure ud(n:integer; var a:t);
var sl:string;
i:integer;
begin
writeln('vvedite slovo:');
readln(sl);
for i:=1 to n do
a[i]:=del(a[i],sl);
end;
procedure vvodf(fname:string;a:t;n:integer);
var f:t1;
s:string;
i:integer;
begin
assign(f,fname);
rewrite(f);
for i:=1 to n do
writeln(f,a[i]);
close(f);
assign(f,fname);
reset(f);
while not eof(f) do
begin
readln(s);
writeln(s);
end;
close(f);
end;
var a:t;
n:integer;
begin
vvod(a,n);
ud(n,a);
vvodf('C:\f1.txt',a,n);





READLN;
{ TODO -oUser -cConsole Main : Insert code here }
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.