В заданной строке удалить все лишние пробелы(Delphi)

[darko666]

В заданной строке удалить все лишние пробелы

Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.

пример:


пример 1
var
m,n:longint;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
read(n,m);
if (m=1) and (n=1) then write(0) else
if (m=1) or (n=1) then write(1)else
if (m<>1) and (n<>1) then write(2);
end.

пример 2

пример 1
var
f1,f2:text;
m,n:longint;
begin
assign(f1,'input.date');
assign(f2,'rez');
reset(f1);
rewrite(f2);
read(f1,n,m);
if (m=1) and (n=1) then write(f2,0) else
if (m=1) or (n=1) then write(f2,1)else
if (m<>1) and (n<>1) then writeln(f2,2);
close(f1);
close(f2);
end.

[Mad_Cat]

В заданной строке удалить все лишние пробелы

while s[1]=' ' do delete(s,1,1);
while s[length(s)]=' ' do delete(s,length(s),1);
while pos('  ',s)<>0 do delete(s,pos('  ',s),1);

Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.

k:=0;
for i:=1 to length(s) do begin
if s[i]=')' then k:=k+1;
if s[i]='(' then k:=k-1;
end;
writeln(k=0);

[darko666]

Спасибо большое)