кто-нить может написать на паскале задачу? (Страница 2 из 2)

var
p,i:integer;
s:string;
f:text; ch:char;
begin
 assign(F,'c:\askar.txt'); {Sozdaetsya fail v ukazannom meste s ukazannim nazvaniem i raswireniem}
 rewrite(f);
 writeln(f,'Zdes budet text kotoriy potom soxranitsya v vawem faile'); {text zapisiwaetsya v fail}
 close(f);
 
 assign(f,'c:\askar.txt'); {otkritie faila dlya chtenia}
 reset(f);
  While not eof(f) do
   begin
   read(f,ch); {s4itivanie iz faila po odnomu simvolu}
   write(ch); {vivod na ekran simvolov po o4eredi}
   end;
 close(f);
 readln;
 end.

{Program changes first and last string by places}
Program stroka;
        var s,s1,s2:string;
        i,n:integer;
begin
 writeln('BBEDuTE CTPOky');
 read(s);
  s1:='';
   for i:=1 to length(s) do
    if s[i]=' ' then
     begin
      if s1='' then
      s1:= copy(s,1,i-1);
      n:=i
     end;
      s2:=copy(s,n+1,length(s));
       delete(s, n, length(s));
       delete(s,1, length(s1)+1);
      s2:=s2+' ';
      s1:=' '+s1;
       insert(s1,s,length(s)+1);
       insert(s2, s, 1);
   Writeln(s);
end.