список (в чем ошибка ?)

[rowlin]

Доброго времени суток!
задача :
cоздать список и заменить вхождения Е1 на Е2
вроде написал :

program popitka003;
uses crt;
type Tinf=char;
      tp=^el;
      el=record
           data: Tinf ;
           next: tp;
      end;

var head : tp;
   l,t   : char;

procedure vkln(var spis1 : tp;znach:TInf);
var
   tmp : tp;
begin
     if spis1=nil then  begin
        GetMem(spis1,sizeof(el));
        tmp:=spis1;
     end
     else
     begin
        tmp:=spis1;
        while tmp^.next<>nil do
           tmp:=tmp^.next;
        GetMem(tmp^.next,sizeof(el));
        tmp:=tmp^.next;  end;
   tmp^.next:=nil;
   tmp^.data:=znach;
end; { AddElem }

procedure enter(var head : tp );
var s :char;pred : tp;
begin
   new(head);
   head^.data:='*';
   head^.next:=nil;
   pred:=head;
   writeln('введите символы ,конец списка-:*:');
   repeat
      read(s);
      if s <>'*' then
         vkln(pred,s);
      until s='*'
end; { enter }
procedure enter(var head : tp );
var s :char;pred : tp;
begin
   new(head);
   head^.data:='*';
   head^.next:=nil;
   pred:=head;
   writeln('введите символы ,конец списка-:*:');
   repeat
      read(s);
      if s <>'*' then
         vkln(pred,s);
      until s='*'
end; { enter }

procedure print(z :tp );
begin
   if z=nil then begin write('end.');
      exit;
   end;
   while z<>nil do
   begin
      write(z^.data,' ' );
      z:=z^.next
   end;
end; { print }

procedure zamena(el : tp;chn,e:Tinf );
begin
   el:=head;
   while el<>nil do
   begin
      if el^.data=chn then
         el^.data:=e
      else
         el:=el^.next
   end;
end; { zamena }

begin
   writeln('welcome');
   enter(head);
   print(head);
   writeln('vvedite zna4enie ,kotoroe neobxodimo zamenit`');
   readln(l);
   writeln('pomenjat` na..:');
   readln(t);
   zamena(head,l,t);
   print(head)
end.

но при запуске выходит

Starting program: /home/****/src/FPC/1111
welcome                                                                        
 введите символы,конец  списка-:*:{тут  ввод 'error*'}                   
* e                                                                                             |
 r                                                                                              |
 r                                                                                              |
 o                                                                                              |
 r                                                                                              |
 vvedite zna4enie ,kotoroe neobxodimo zamenit` r                                             
pomenjat` na..:
o                                                                                               
* e o r o r o o o r o 
 {^вот вывод:eek:}                                                                       
Program exited normally.

не подскажите в чем ошибка ??

[rowlin]

xmmm...возможно все дело в gdm <по-идее должена же работать правильно>
не могли бы вы откомпилить и выполнить в win-fpc (возможно ,такой проблемы не будет,хотя ...) ?

[OCTAGRAM]

В процедуре enter делается read(s), а при тестировании символы вводятся на отдельной строке. Не факт, что ошибка в этом, но всё же.

[rowlin]

OCTAGRAM
да я вкурсе насчет этого(сократил с целью экономия места)... -ввод char через enter
но меня более тревожит вывод - должна производиться замена символа ,а не вставке между

но ..все-же спасибо за содействие

[Stilet]

Предлагаю кое-что усовершенствовать:

type Tinf=char;
      tp=^el;
      el=record
           data: Tinf ;
           next: tp;
      end;

var head : tp;   s:string;
   l,t   : char;

procedure vkln(var spis1 : tp;znach:TInf);
var
   tmp : tp;
begin
     if spis1=nil then  begin
        GetMem(spis1,sizeof(el));
        tmp:=spis1;
     end
     else
     begin
        tmp:=spis1;
        while tmp^.next<>nil do
           tmp:=tmp^.next;
        GetMem(tmp^.next,sizeof(el));
        tmp:=tmp^.next;  end;
   tmp^.next:=nil;
   tmp^.data:=znach;
end; { AddElem }

procedure enter(var head : tp );
var s :string;pred : tp;i:integer;
begin
   new(head);
   head^.data:='*';
   head^.next:=nil;
   pred:=head;
   writeln('введите символы как строку');
   readln(s);
   for i:=1 to length(s) do begin
         vkln(pred,s[i]);
   end
end; { enter }

procedure print(z :tp );
begin
   if z=nil then begin write('end.');
      exit;
   end;
   while z<>nil do
   begin
      write(z^.data,' ' );
      z:=z^.next
   end;
end; { print }

procedure zamena(el : tp;chn,e:Tinf );
begin
   el:=head;
   while el<>nil do
   begin
      if el^.data=chn then       el^.data:=e;
      el:=el^.next
   end;
end; { zamena }

begin
   writeln('welcome');
   enter(head);
   print(head);
   writeln('vvedite zna4enie ,kotoroe neobxodimo zamenit`');
   readln(l);
   writeln('pomenjat` na..:');
   readln(t);
   zamena(head,l,t);
   print(head);
   readln;
end.

Смысл виден?

[rowlin]

Stilet- спасибо что откликнулись
теперь все работает =)
жаль, лабу уже сдал ...- сменив char на intreger