Question

Помогите решить задачи по паскалю
1. Задан текст. Удалить из текста знаки («»)
2.Дан текст, в котором слова отделяются пробелами, в конце стоит точка. Поменять в тексте первое и последнее слово местами.

Answer 1

var S:string;
i,N:integer;
begin
Readln(S);
N:=length(S);
i:=i+1;
While i<=n do
begin
If (S[i]='«') or (S[i]='»') then
begin
Delete(S,i,1);
i:=i-1;
n:=n-1;
end;
i:=i+1;
end;
Writeln(S);
end.

var S,A,B:string;
i,k,l,N:integer;
begin
Readln(S);
N:=length(S);
For i:=1 to N do
If S[i]=' ' then
begin
k:=i;
break;
end;
For i:=N downto 1 do
If S[i]=' ' then
begin
l:=i;
break;
end;
A:=Copy(S,1,k-1);
B:=Copy(S,l+1,N-l-1);
Delete(S,l,N-k);
Delete(S,1,k);
S:=B+' '+S+' '+A+'.';
Writeln(S);
end.