списки. удаление буквы из слов Опции

[Insomnia]

program delete_1_bykvy_iz_slov;
// удалить 1_ю букву из всех слов

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  Tinfo= string;
  TList= ^TElem;
  TElem= record
         info: Tinfo;
         next: TList;
         end;

procedure create (var p: Tlist;info: Tinfo);
begin
  if p<>nil then create(p^.next,info)
            else begin
                   new(p);
                   p^.info:=info;
                   p^.next:=nil;
                 end;
end;

procedure input (var p: Tlist);
var
  ch: char;
  s: string;
begin
  writeln('input a text, point - end');
  read(Ch);
  if Ch='.' then begin
                   writeln('the text are empty');
                   readln;
                   readln;
                   exit
                end
           else
  begin
    while Ch<>'.' do
    begin
      s:=s+Ch;
      read(Ch)
    end;
    readln;
  end;
  create (p,s);
end;

procedure print (l: Tlist);
var
  p: Tlist;
begin
  p:=l;
  while p<>nil do
  begin
    writeln(p^.info);
    p:=p^.next;
  end;
end;



var
  L: Tlist;
begin
  input(L);
  print (L);
  readln
end.

не пойму, как мне обратиться к 1 букве. список я правильно создал?