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 букве. список я правильно создал?