Pascal string problem

program bootstat2;                {™ppnar bootstat.dat}
uses
  crt;
var
  s, t, u : string;
  f, w, q : text;
  a, L : integer;
begin
  clrscr;
  write('Skriv in filnamnet:');
  readln(t);
  assign(f, t);
  assign(w, 'C:logg.txt');
  assign(q, 'C:logg2.txt');
  rewrite(q);
  reset(f);
  rewrite(w);
  readln(f,s);
  L := length(s);
  writeln(s);
  writeln(w,s);
    for a := 1 to L do begin
      readln(f,s);
      writeln(s);
      writeln(w,s);
    end;
    if L+1 > 255 then begin
      for a := L to (2*L) do begin
      readln(f,u);
        writeln(u);
        writeln(q,u);
      end;
    end;
  close(q);
  close(w);
  close(f);
  writeln();
  writeln('En loggfil har skapats. Den heter "logg.txt". Tryck ENTER.');
  readln();
end.

program openup;              {By lingon}
uses
  crt;
var
  s, t : string;
  f, p : text;
begin
  clrscr;
  write('Enter filename:');
  readln(t);
  assign(f,t);
  assign(p,'logg.txt');
  reset(f);
  rewrite(p);
  while not eof(f) do begin
    readln(f,s);
    writeln(s);
    writeln(p,s);
  end;
  close(f);
  close(p);
  writeln();
  writeln('A loggfile has been created. Press ENTER.');
  readln();
end.