point = ^MyWord;
MyWord = record
ch: char;
next: point
end;
var
slovo:point;
{---------------------------------------------------------------------------}
procedure Print (first: point);
Var r: point;
begin
R:= first;
write('C/\OBO = ');
While r<>nil do
begin
Write (r^.ch);
R:=r^.Next;
end;
writeln;
end;
{---------------------------------------------------------------------------}
procedure Vvod(var first:point);
var r, last:point;
begin
first:= nil; last := nil;
writeln('HABEPuTE C/\OBO C "." HA KOHCE ');
repeat
new(r);
r^.next := nil;
read(r^.ch);
if first = nil then first := r
else last^.next := r;
last := r;
until r^.ch = '.';
end;
ЗЫ: Спасибо, volvo, за редактирование ввода