Сформировать динамическую строку, вывести её на экран, если предпоследним символом является буква К, то логической переменной...

[naruto13]

Сформировать динамическую строку, вывести её на экран, если предпоследним символом является буква К, то логической переменной Л присвоить значение ТРУ

Код программы не работает. Помогите разобраться.

program lab12(input,output); 
type 
zv= ^ pointer; 
pointer=record 
elem:integer; 
next:zv; 
end; 
var 
vslov,vlan:zv; 
sym:char; 
n:integer; 
k:boolean; 
s:string; 
begin 
writeln('vvedit literu z klaviatury'); 
read(sym); 
new(vslov); 
vslov^.elem:=sym; 
vslov^.next:=nil; 
vlan:=vslov; 
repeat 
read(sym); 
next:=vlan^.next;; 
vlan:=vlan^.next; 
vlan^.elem:=sym; 
vlan^.next:=nil; 
until sym='#'; 
k:=0; 
vlan:=vslov; 
while vlan^.next<> nil do 
begin 
if s[n-1]=k then 
L:=true 
end; 
vlan:=vlan^.next; 
writeln('result k',k); 
writeln('vvestu literu'); 
vlan:vslov; 
while vlan^.next <>nil do 
begin 
write(vlan^.elem); 
end; 
end.

[Stilet]

Ай яй... Где-то я уже этот код видел? Уж не Саске ли его на днях сдавал?
А че, кстати, не работает? Ты не пробовал с теневыми клонами в +100500-тиром разобраться?

[naruto13]

кто такой Саске я незнаю...

[Stilet]

У-у-у... Ладно. проехали...
Так че не работает то?

[naruto13]

программа сама не работаеть,видает то ошибки типу там нету крапки с комой,и што то в етом плане

знаю што там есть какие то ошибки в самом написание, но как исправить их незнаю..

[Stilet]

Сказочный ужос... Какой эросенин вас таким дзютцу учит...

type
zv= ^ pointer;
pointer=record
  elem:char;
  next:zv;
end;
var
  vslov,vlan,l:zv;  sym:char;  n:integer;  k:boolean;  s:string;
begin
		  vlan:=nil; vslov:=nil;l:=nil;
		  repeat
		    writeln('vvedit literu z klaviatury');
		    read(sym);
		    new(vslov);
		    if vlan=nil then vlan:=vslov;
		    if l<>nil then l^.next:=vslov;
		    vlan^.elem:=sym;
		    vlan^.next:=nil;
		  until sym='#';
		  vslov:=vlan;
		  while vslov<>nil do begin
		   vslov:=vslov^.next;
		   write(vslov^.elem);
		  end;
      readln;
end.

Это как минимум. Теперь подгоняй под условие здачи.

[naruto13]

учат то норм,просто ето я непонимаю што делать и как

пишет што тип нехт не обявлен в поінтер,в чом ошибка если он там вродє как обявлен

[Stilet]

На какой строке пишет?

[naruto13]

Program1.pas(23,19): next не объявлен в типе pointer
(if l<>nil then l^.next:=vslov

пробивала делать в фри паскале на линуксе там ошибок не видает но не считивает инфу только видает врителн ввести литери и все

[Stilet]

Замени слово pointer на слово PRecord везде в своем коде.
read замени на readln и вводи посимвольно. После каждого символа жми энтер...
А вообще какой... парнокопытный вас такому обучает?