Текстовый чат.

program chatAlpha;
// чат v.01 alpha
uses crt;
var YouMesg,mesg,a:string;
    file1,file2:text;
begin
     writeln('Вас преведствует локальный чат версии 01.a.');
     writeln('Вы уже можете начать передавать сообщения');
     writeln('Что бы выйти из чата надо набрать <exit>');
     writeln('------------------------------------------');
while YouMesg<>'exit' do begin
assign(file1,'file1.txt'); reset(file1); read(file1);
assign(file2,'file2.txt'); rewrite(file2); read(file2);
 
                       { write('Вы: ');readln(YouMesg); // вы вводите меседж
                        writeln(file2,mesg); // выводит сообщение другово человека.
                        read(file1,mesg); writeln('Собеседник : ',mesg); //и тут тоже }
                        
                        write('Вы: '); readln(YouMesg); writeln(file2,mesg);
                        // вы вводите сообщение, и заносите в file2 (Red line)
                        read(file1,mesg);// читаем file1 - присваиваем телу значение mesg
                        writeln('Собеседник : ',mesg);
                        //выводим тело(сообщение)-mesg
 
 
 
close(file1);
close(file2);
end;
end.