работа с файлами. делфи

[shumakosik]

1. задан текстовый файл a.txt
написать программу, которая меняет первый и последний символ в каждой строке.
2. myfile = file of char.
Написать процедуру next(f),заменяющую все маленькие английские буквы на большие английские

1).

procedure zamena(var f:myfile);
var s:string;
    s1,s2,buf1,buf2:char;
begin
reset(f);
while not eof(f) do
  begin
    read(f,s1);
    buf1:=s1;
    seek(f,filesize(f)-1);
    read(f,s2);
    buf2:=s2;
    write(f,buf1);
    seek(f,0);
    write(f,buf2);
  end;
close(f);
end;

2).

procedure Next(var f:myfile);
var x:char;
begin
reset(f);
while not eof(f) do
  begin
    read(f,x);
    if (x>'a') and (x<'z') then
      ord(x)+26;
    write(f,x);
  end;
close(f);
end;

подправьте, пожалуйста