Function to reset sequence.....

I am a real newbie with PL/pgSQL, and with postgres, but here goes. 

The problem: when you import data into postgresql, there is no way to set
the proper sequence on the primary key. For example, I could have a table
with 2000 rows, some of which have been added/deleted in time, so the
nextval for the sequence should be 3301. When you set the table up with sql
as:

CREATE TABLE "public"."tblcompany"(
"intcompany" SERIAL PRIMARY KEY,
"txtcompanyname_1" varchar(255) ,
...
);

The nextval is set by default to 1. 

To overcome this, and avoid manually resetting the key (which is error
prone), my strategy is (1) create the structure, (2) import the data, and
then (3) reset the primary key. I have written sql to accomplish the first
two which I have working well; the third is more complicated. What I would
like to try is pasted below, after messing around - I haven't really got it
even close to working:

CREATE OR REPLACE FUNCTION fixsequence() returns void AS $$

BEGIN
 x RECORD;  temp int;


-- set up a loop for the tables in the database
 FOR x INSELECT table_name, column_nameFROM information_schema.key_column_usageNATURAL JOIN
information_schema.table_constraintsWHEREconstraint_type = 'PRIMARY KEY'AND ordinal_position = 1ORDER BY 1;
 

-- begin loop 
 LOOP-- get the max value of the primary key and add 1select max(x.column_name)+1 as temp from x.tablename;
-- get the seqence name for the table, sequence name always includes
the table name of the pimary keyselect relname as seq_name  from pg_class where relkind = 'S' and
relname like x.table_name'%';
-- now reset the sequence for that tableSELECT setval(seq_name, temp); END LOOP;

END;
$LANGUAGE 'plpgsql';

Before I mess up my data, will this (or something like it work) as I have
little confidence? I am having trouble with combining variables with
wildcards (middle of the loop).  

Thanks for any support. 

Doug