Паскаль.не могу понять что не так

Создать 3 текстовых файла, используя простейший текстовый редактор. Разработать программу для работы с текстовыми файлами. Программа должна уметь делать следующее: Объединять несколько текстовых файлов в один (дописывание содержимого указанных файлов к первому). Имена и последовательность объединяемых файлов задаются преподавателем при оценке работоспособности программы

uses crt;

const n = 3;

var f1,f2,f3,g1,g2,g3:text;

 ng1,ng2,ng3,s1,s2,s3:string;

  i:integer;

z:byte;

begin

 repeat

 ClrScr;

 WriteLn('1-Нажмите для создания пути файла, имени и информации');

 WriteLn('2-Нажмите для объединения информации файлов в первый файл');

 WriteLn('0-Нажмите для завершения работы');

 Write('Выбрать режим: ');

 ReadLn(z);

 Case z of

 1:begin

for i:=1 to n do

begin

write('Введите путь к файлу ',i,' или его имя : ');

readln(ng1);

ng1:=ng1+'.txt';

assign(g1,ng1);

rewrite(g1); 

begin

writeln('Введите строку для записи в файл ',ng1,'');

readln(s1);

writeln(g1,s1);

close(g1);

begin

readln(ng2);

ng2:=ng2+'.txt';

assign(g2,ng2);

rewrite(g2);

begin

writeln('Введите строку для записи в файл ',ng2,'' );

readln(s2);

writeln(g2,s2);

close(g2);

begin

readln(ng3);

ng3:=ng3+'.txt';

assign(g3,ng3);

rewrite(g3);

begin

writeln('Введите строку для записи в файл ',ng3,'');

readln(s3);

writeln(g3,s3);

close(g3);

end;

end;

end;

end;

end;

end;

write('Файл ',ng1,',',ng2,',',ng3,' создан');

readln;

end;

  2:begin

 assign(f1,'ng1.txt');

 assign(f2,'ng2.txt');

 assign(f3,'ng3.txt');

 rewrite(f1);

 reset(f2);

 while not eof(f2) do

 begin

  readln(f2,s2);

  writeln(f1, s2);

 end;

 close(f2);

 close(f1);

 append(f1);

 reset(f3);

 while not eof(f3) do

 begin

  readln(f3, s3);

  writeln(f1, s3);

 end;

 close(f3);

 close(f1);

 append(f1);

end; 

 end;

  until z 0;

end.