Строковый тип. Паскаль.

[Skipper Ok]

Мои наработки: (что-то тут не так...исправьте пожалуйста.)

Program pscr;
type
rip=^guf;
guf=record
ch: char;
next: rip;
end;
var
s: rip;
l: string;
i: integer;
procedure addtostack (lit: char);
var w: rip;
begin
new (w);
w^.ch:=lit;
w^.next:=s;
s:=w;
end;
procedure finish;
var
w: rip;
begin
if s=nil then writeln ('Строка правильная')

else writeln ('Строка неправильная');
end;
begin
writeln ('Введите строку');
readln (l);
s:=nil;
for i=1 to lenght(l) do
begin
if l[i]:=['{', '}', '[', ']', '(', ')', ' ']
then do
if l(i):=['{', '[', '('] then
addtostack (l[i]) else
correct (l[i]);
end;
else writeln ('Строка неправильная');
end;
finish;
readln;
end.

[Poma][a]

Ну.. Начать нужно с того, что Ваш стек - не стек.. Он больше похож на списки..
Дальше идет пара косяков с присваиванием в условиях и обращение к I-тому элементу строки используя ()

Program pscr;
type
	rip=^guf;
	guf=record
		ch: char;
		next: rip;
	end;

var
	s: rip;
	l: string;
	i: integer;

procedure addtostack (lit: char);
var 
	w: rip;
begin
	new (w);
	w^.ch:=lit;
	w^.next:=s;
	s:=w
end;

procedure finish;
var
	w: rip;

begin
	if s=nil then writeln ('Строка правильная')
	else writeln ('Строка неправильная')
end;

begin

	writeln ('Введите строку');
	readln (l);
	s:=nil;
	for i=1 to lenght(l) do
	begin
		if l[i]in['{', '}', '[', ']', '(', ')', ' ']
		then begin
			if l[i] in['{', '[', '('] then
			addtostack (l[i]) else
			correct (l[i]);
		end;
		else Break
	end;
	finish;
	readln;
end.

Но, всё же лучше переделать в стек!

[Skipper Ok]

Программа не работает... что значит строчка

correct (l[i])

[Poma][a]

Программа не работает

Как странно..

что значит строчка

Эх.. оказывается тот код писали не Вы..

[Stilet]

что значит строчка

Действительно. Что это за строчка?