Текстовый файл, Помогите с решением задачи на создание и работу с текстовым файлом Опции

[Fatum]

Помогите пожалуста с задачей
Сформировать и отобразить на екране текстовый файл в котором все символы заменить на их числовое значение представленое в таблице ASCII . Найти суму всех символов.
у меня получилось что-то такое ..

var f:text;
   y,x:string;
   i,s:integer;
   label d;
   begin

   assign (f,'file.pas');
   reset(f);
   d:
   write ('Введите строку текста')  ;
   readln(x);
   writeln(f,x);
   writeln('Будете ещё ??y/n');
   read(y) ;
   if y='y' then goto d ;
   close (f);
   reset(f) ;
   while not eof (f)  do begin
   s:=0;
   while not eoln(f)  do begin
   read(x);
   for i:=1 to length(x) do s:=s+ord(x[i]);write (ord(x[i]),'')  ;
   writeln(s) ;
   end;
   end;
close(f);
end. 

.
Заранее благодарен!!