список,файлы

[Chief]

а)Написать программу для созданию случайным образом символьного файла F содержащего от 35 до 55 прописных английских букв.
б)сформировать список A из элементов файла F,вывести на экран
в)все "A","B","C" заменить следующим символом(по таблице ASCII),вывести на экран
в)отсортировать вторые 15 символов по возрастанию,вывести на экран
г)сформировать список b из каждого третьего эдемента массива A,вывести на экран
д)записать массив B в символьной файл g,следующим образом:сначала вторую половину,а затем первую

вот мой код,недописанный.там проблемы с процедурой замены символов(zam_sim) и неуверен насчет процедуры формирование списка слуйчайными элементами из файла F(form_spiska_a)

uses crt;
type chain=^zveno;
	zveno=record
      	elem:char;
           sled:chain;
     end;
var
   p,q:chain;
   f:file of char;
   g,i:integer;
procedure zap_fail;{заполнение файла случайными англ буквами}
  var
    k:integer;
    c:char;
  begin
   rewrite(f);
   k:=random(10)+5;{(21)+35}
   for i:=1 to k do
  	begin
    	c:=chr(random(26)+65);
      write(f,c);
    end;
   close(f);
   writeln('1)fail "fail_sim" slu4ainymi simvolami zapolnen');
   writeln('_______________________________________________');
  end;
procedure form_spiska_a;{zadanie 2.a}
	var
    c:char;
  begin
   writeln('2)spisok A iz elementov faila F sformirovan:');
   new(p);
   q:=p;
   g:=0;
    while not eof(f) do
      	begin
        	read(f,q^.elem);
          write(q^.elem);
          new(q^.sled);
          q:=q^.sled;
          inc(g);
          q^.sled:=nil;
        end;
   write(q^.elem);
  end;
procedure zam_sim;{процедура замены символов}
var
    k:byte;
    c:set of char;
  begin
  	c:=['A','B','C'];
    p:=q;
    while q^.sled<>nil do
    	begin
      	if q^.elem in c then
        	begin
          	k:=ord(q^.elem)+1;
            q^.elem:=chr(k);
          end
        else;
      	q:=q^.sled;
    	end;
    write(q^.elem);
  end;
{___________________Osnovnaya programma___________________}
begin
	clrscr;
  randomize;
  assign(f,'fail_sim.pas');
  zap_fail;
  reset(f);
  form_spiska_a;
   zam_sim;
close(f);
readkey;
end.