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

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.