Перестановка строк, Работа с текстовыми файлами Опции

[Rocket]

Всем привет! В данный момент пытаюсь реализовать следующую задачу: нужно в текстовом файле (кол-во) В строк с позиции(строка) А поменять местами с В строками позиции(строки) С, то есть какбы переставить их местами. А,В,С вводятся с клавиатуры.
Вот мои наработки:

programm perstr;
var a,b,c,j :integer;
f,newf: text;
st:string;

procedure jmp(x: integer);
var i: integer;
    s: string;
begin
    for i:=1 to x-1 do
        readln(f1,s);
end;


begin

assign(f,'xx.txt');
reset(f);

assign(newf,'yy.txt');
reset(newf);

readln(a);
readln(b);
readln©;

for j:=1 to a-1 do
	begin
		readln(f,st);
		writeln(newf,st);
	end;

close(f);
reset(f);
jmp©;

for j:=1 to b-1 do
	begin
		readln(f,st);
		writeln(newf,st);
	end;

close(f);
reset(f);
jmp(a+b);

for j:=1 to c-a-b do
	begin
		readln(f,st);
		writeln(newf,st);
	end;

close(f);
reset(f);
jmp(a);

for j:=1 to b do
	begin
		readln(f,st);
		writeln(newf,st);
	end;

close(f);
close(newf);

end.

Есть сообщение об ошибке: отсутствует begin. Скажу честно, pascal подзабыл.
Какие будут замечание, предложения по реализации? Как довести это до ума?