Вычисление периметра и площади прямоугольника, через данные из файла - Pascal

Формулировка задачи:

Помогите написать программу вычисления периметра и площади прямоугольника, через данные из файла и запись результата в другой. Например - input.txt: 5 10 output.txt: 30 50 Набросок (без работы с файлами):

                    Листинг программы
                
 
                        
                          
                    
var a,b,s,p: integer;
begin
writeln('Введите длину прямоуг (а): ');
readln(a);
writeln('Введите ширину прямоуг (b): ');
readln(b);
S:=a*b;
P:=(a+b)*2;
writeln('p=',p);
writeln('s=',s);
end.

Решение задачи: «Вычисление периметра и площади прямоугольника, через данные из файла»

Листинг программы

var a, b: real;
    f: text;
begin
  assign(f, 'input.txt');
  reset(f);
  readln(f, a, b);
  close(f);
  assign(f, 'output.txt');
  rewrite(f);
  writeln(f, (a + b) * 2, #10#13, a * b);
  close(f)
end.

Объяснение кода листинга программы

Объявляются переменные a, b и f типа real и text соответственно.
Устанавливается имя файла для чтения и записи в переменную f.
Считываются значения переменных a и b из файла input.txt.
Закрывается файл input.txt.
Открывается файл output.txt для записи.
В файл output.txt записывается формула периметра и площади прямоугольника (a + b) 2 и a b соответственно.
Закрывается файл output.txt.