Pascal ABC rendezés?

A Feladat szövege: Az iskolában úgy döntöttek, hogy összevonnak két kisebb osztályt egy angolnyelvet tanuló csoportba. Mivel mindkét osztályból teljes létszámban jelentkezett mindenki, ezért a két osztály névsorából egy újabb ábécébe rendezett névsort kell alkotni az angolra. Írj programot, amely az angol csoport számára egy újabb névsort készít a két ábécérendbe rendezett osztálynévsor háttértáron tárolt névsoraiból! Az első osztály névsora az ELSO.TXT-ben, míg a második osztály névsora – a MASODIK.TXT állományban található. Az összevont ábécérendbe rendezett névsor végeredménye az ANGOL.TXT-be kerüljön! A feladatot rendező algoritmus alkalmazása nélkül kell elvégezni! Pl. a bemenet: az első osztály névsora az ELSO.TXT-ben: Balla Annabella, Barna Barbara, Író Izabella, Sajtos Sándor, Varga Valéria; a második osztály névsora az MASODIK.TXT-ben: Bármi Áron, Gipsz Jakab, Har Mónika, Kelep Elek. Kimenet: az ANGOL.TXT tartalma: Balla Annabella, Bármi Áron, Barna Barbara, Gipsz Jakab, Har Mónika, Író Izabella, Kelep Elek, Sajtos Sándor, Varga Valéria.

A kérdésem az lenne hogyan lehet ezt rendezés nélkül megoldani.A programban eddig jutottam:

program angol;

var t:text;

i:integer;

a:array [1..30] of string;

const ABC = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

begin

writeln('Elso nevsor:');

assign(t,'ELSO.txt');

reset(t);

i:=0;

while not eof(t) do

begin

inc(i);

readln(t,a[i]);

writeln(a[i]);

end;

writeln('Masodik nevsor:');

assign(t,'MASODIK.txt');

reset(t);

i:=0;

while not eof(t) do

begin

inc(i);

readln(t,a[i]);

writeln(a[i]);

end;

readln;

end.