Написать программу на языке паскаль которая вызывает из модуля подпрограмму, которая печатает содержимое непустого текстового файла по рядкам, вставляя в начало рядка слово "рядок" и номер этого рядка(4 позиции). ​

ответ:

вот программа, которая выводит слово в обратном порядке. об оперативной памяти может не понял, но по-моему оно и так туда сохраняется, по крайней мере во время работы программы:

program task;

var s, r: string;

i: integer;

begin

writeln('введите слово: ');

readln(s);

setlength(r, length(s));

for i : = 1 to length(s) do

r[i] : = s[length(s) - i + 1];

writeln('результат: ');

writeln(r);

readln;

end.

объяснение:

pascalabc.net

unit nekrasov;   // поместить в одноименный файл !

interface

procedure printtext(fn: string);

implementation  

procedure printtext(fn: string);

begin

  var i : = 1;

  foreach var s in readlines(fn) do

  begin

    writeln(i: 4, ' ', s);

    i += 1

  end;

end;

end.

uses nekrasov;   // вызывающая программа (другой файл)

begin

  var fn : = readlnstring('укажи имя файла: ');

  if fileexists(fn) then

    printtext(fn)

  else

    println('файл не найден')

end.

А) Изменение размера полей листа