Даны два текстовых файла А1 и А2. Создать 3-ий файл в котором будет первая половина А1 и вторая половина А2.

Как-то так:
const { подставь свои имена файлов }
Name1 = 'file1.txt';
Name2 = 'file2.txt';
Name3 = 'file3.txt';
var A1, A2, A : Text; K, N : Word; S : String;
begin
Assign(A, Name3); Rewrite(A);
Assign(A1, Name1); Assign(A2, Name2);
{ считаем число строк в первом файле }
Reset(A1); K := 0; while Not EOF(A1) do begin ReadLn(A1, S); Inc(K); end; Close(A1);
{ переписываем первую половину первого файла }
K := K div 2; N := 0; Reset(A1); while N <= K do begin ReadLn(A1, S); Inc(N); WriteLn(A, S); end; Close(A1);
{ считаем число строк во втором файле }
Reset(A1); K := 0; while Not EOF(A1) do begin ReadLn(A1, S); Inc(K); end; Close(A1);
{ переписываем вторую половину второго файла }
K := K div 2; N := 0; Reset(A2); while Not EOF(A2) do begin ReadLn(A2, S); Inc(N); if N > K then WriteLn(A, S); end; Close(A2);
{ закрываем файл результата }
Close(A);
end.
Ассемблера здесь нет!
И фишек тоже нет!
....
А! Если про стандартную функцию Inc, то читай в книжках.
Или вот здесь (пробелы убери) :
http://borlpasc. narod. ru/docym/Faronov/gl4/gl4_2.html

открыть 1й, выделить половину, нажать CTRL+C
открыть 3й, нажать CTRL+V
открыть 2й выделить вторую половину, нажать CTRL+C
открыть 3й, поставить курсор в конец, нажать CTRL+V

Александр Карпенко Ты адекват? ? ВОПРОС ПО ПАСКАЛЮ

Получил размер первого файла.
Скопировал половину символов.
Получил размер второго файла.
Скопировал вторую половину символов.
Сохранил третий файл.
В чем проблема-то?
Что значит не катит? Как вы это делаете? Подробней