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

var S:string;i,N:integer;beginReadln(S);N:=length(S);i:=i+1;While i<=n dobeginIf (S[i]='«') or (S[i]='»') thenbeginDelete(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;beginReadln(S);N:=length(S);For i:=1 to N doIf S[i]=' ' thenbegink:=i;break;end;For i:=N downto 1 doIf S[i]=' ' thenbeginl:=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.