Кесте конструкторын қалай іске қосамыз?​

Можно написать о протоколах, которые используются мессенджерами, дать кратенькое описание этих протоколов, серверов, которые используют протоколы. Потом нужно упомянуть шифрования сообщений, на каком уровне они используются  (на уровне месс, сервера или к-л. другом). Отдельно можно написать о самом популярном месс. - о скайпе. Ну, и в конце, о всяких наворотах, которыми обрастают месс., наприм. у мэйл-агента - встроенные игры, поддержка веб-камер, или, допусчтим, темы интерфейсов, поддержка офлайн-сообщений...
Вот, как-то так.

Удачной учёбы!

Var f:file of integer;   
 a,i,k,n:integer;
begin
randomize;
assign(f,'file');
rewrite(f);
repeat
write('Четное количество элементов: ');
readln(n);
until(n>1) and (n mod 2=0);
for i:=1 to n do
 begin 
 a:=random(100); 
 write(f,a); 
end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin 
 read(f,a); 
write(a,' ');
 end;
close(f);
writeln;
reset(f);
seek(f,filesize(f)div 2);
truncate(f);
writeln('Содержание измененного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a); 
 write(a,' '); 
end;
close(f);
readln
end.