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

[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 подзабыл.
Какие будут замечание, предложения по реализации? Как довести это до ума?

[volvo]

Есть сообщение об ошибке: отсутствует begin.

Нет слова Programm в Паскале, поэтому компилятор тебя и не понимает... Убери лишнюю букву и исправляй ошибки дальше (у тебя там еще неописанные переменные есть).

[Rocket]

Нет слова Programm в Паскале, поэтому компилятор тебя и не понимает... Убери лишнюю букву и исправляй ошибки дальше (у тебя там еще неописанные переменные есть).

Угу, все исправил и дописал, - работает:

program 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(f,s);
end;


begin

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

assign(newf,'yy.txt');
rewrite(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 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);
reset(f);
jmp(c+b);

while not eof(f) do
	begin
		readln(f,st);
		writeln(newf,st);
	end;

close(f);
close(newf);

end.

Но, когда я написал отдельную процедуру для записи в новый файл, программа стала работать некорректно.
Исходный файл:
aaa
bbb
ccc
ddd
fff
hhh
jjj
kkk
lll
xxx
yyy
zzz

Новый файл:
aaa
hhh
ddd
ccc
jjj
kkk
lll
xxx
yyy
zzz

А=2, В=2, С=5.
То есть видно, что не записывается по одной строки в каждом обмениваемом блоке.
Вот код:

program code;

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(f,s);
end;

procedure  work(y: integer);
var i: integer;
    s: string;
begin
    for i:=1 to y do
        readln(f,s);
	writeln(newf,s);
end;

begin

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

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

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

work(a-1);
close(f);
reset(f);
jmp©;

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

work(c-a-b);
close(f);
reset(f);
jmp(a);


work(b);
close(f);
reset(f);
jmp(c+b);

while not eof(f) do
	begin
		readln(f,st);
		writeln(newf,st);
	end;

close(f);
close(newf);
end.

Как исправить?