В принципе всё правильно, но если позволите, одно небольшое, скажем так, недоумение. Фрагмент программы:
S:=0;k:=0;
For i:=1 to 6 do begin
S:=s+V1[i];
k:=k+1;end;
Vsr1:=S/k;
(их там 2) мне кажется перегруженным. Зачем нужен счетчик циклов, если и так заранее известно, что их 6? Эквивалентный фрагмент:
Vsr1:=0;
For i:=1 to 6 do
Vsr1:=Vsr1+V1[i]/6;
И еще - цикл к конце программы перед выводом результата - явно лишний!
Теперь по Вашему вопросу о выводе на печать. Самое правильное - организовать вывод данных в файл с последующей распечаткой этого файла. Делается это так:
В разделе VAR добавляете
f:TEXT;
В начале программы пишете
Assign(f, 'C:\UMMASHA\ekg.res');
ReWrite(f);
Здесь 'C:\UMMASHA\ekg.res' - для примера. Т.е. в кавычках указываете путь и имя файла [Диск]\[Папка]\...[Папка]\[Имя файла]
Во все операторы вывода (кроме тех, что используются при вводе данных) Write, WriteLn после открывающей скобки добавляете "f,", т.е. должно быть Write(f, ...). Пустой WriteLn заменяете на WriteLn(f). Можно, впрочем, и вывод на экран сохранить, для чего каждый выводной оператор нужно скопировать и в копию добавить "f,".
Т.е. будет Write(...); Write(f, ...);
В конце вычислений ОБЯЗАТЕЛЬНО добавить Close(f);
Теперь на диске образовался файл (например, ekg.res), в который внесены полученные данные. Осталось вызвать его в какой-либо текстовый редактор (NotePad, WORD и т.п.) и распечатать.
Удачи!